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Vorwort 


Das vorliegende Buch entstand aus dem Bedürfnis heraus, für die 
PC-Programmierung unter MS-DOS oft benötigte Informationen 
griffbereit zur Hand zu haben. Es handelt sich somit im wesentli- 
chen um ein Handbuch - d.h. ein Nachschlagewerk — und nicht um 
ein Lehrbuch. Es kann und soll die Original-Handbücher nicht 
ersetzen, sondern ergänzen. Dennoch aber werden viele Beispiele 
gegeben (die auf der beiliegenden Diskette auch als Dateien 
vorliegen), wie Probleme gelöst werden können, einschließlich 
eines umfangreichen ‘Rezeptes’, wie sich Borlands Turbo Vision in 
den Graphikmodi von CGA, EGA, VGA und HERCULES realisieren 
läßt. 


Insofern werden Grundkenntnisse in Pascal und Assembler — inklu- 
sive objektorientierter Programmierung — und die Möglichkeit, bei 
Verständnisschwierigkeiten die Original-Dokumentation(en) zu Rate 
zu ziehen, vorausgesetzt. 


Dies ist kein Buch ausschließlich für Fortgeschrittene — wenn auch 
passagenweise für blutige Anfänger im Bereich der PC-Programmie- 
rung vermutlich schwer verständlich. Weiter fortgeschrittenen Pro- 
grammierern — insbesondere solchen mit soliden Kenntnissen in 
Assembler — rate ich an, das Buch querzulesen, d.h. Kapitel oder 
Abschnitte, die Bekanntes darstellen, zu überspringen bzw. es eben 
als Nachschlagewerk zu gebrauchen. 


Das Buch ist in Themenbereiche gegliedert, und die vorderen Kapi- 
tel sind deshalb nicht unbedingt für das Verständnis der späteren er- 
forderlich. Eine Ausnahme hiervon bildet Kapitel 14 über die Turbo 
Vision im Graphikmodus (TGV), in dem Kenntnisse aus den Kapi- 
teln sieben und acht vorausgesetzt werden. 

Der Themenkreis des Buches ist weit gefächert und es war daher 
nicht möglich, jedes Thema wirklich erschöpfend zu behandeln. 

Ich habe mich bemüht, sorgfältig vorzugehen, und alle dargestellten 
Quelltexte und Programme gründlich zu prüfen. Fehler sind den- 
noch nicht völlig auszuschließen. Ich kann deshalb für die Richtig- 


Vorwort 


keit der in diesem Buch gemachten Angaben und für die Fehlerfrei- 
heit der Programmtexte keine Garantie geben und keinerlei Haftung 
für eventuell durch fehlerhafte Informationen entstehende Schäden 
übernehmen. Ich bitte hierfür um Verständnis. 


Mein besonderer Dank gilt den Mitarbeitern des Verlages Vieweg 
sowie allen, die mich bei der Erstellung des Manuskripts unterstützt 
haben, insbesondere meiner Lebensgefährtin Pia für ihre Geduld. 
Für Hinweise, konstruktive Kritik und Anregungen in schriftlicher 
Form bin ich dem Leser dankbar. 


Christian Baumgarten 
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Zentrales: Die CPU 


Eigentlich müßte in der Überschrift dieses Kapitels CPU in der 
Mehrzahl stehen, da ja von der CPU beim PC nicht die Rede sein 
kann. Zwar haben die verschiedenen Prozessoren, die im PC einge- 
baut werden, alle als kleinsten gemeinsamen Nenner den 8086, aber 
die Unterschiede sind dennoch erheblich. Bereits der 80286 arbeitet 
eigentlich in einer vollkommen anderen Betriebsweise - dem 
’Protected Mode’ - als der 8086. Und die eigentliche Betriebsart des 
80386 (32-Bit Daten- und Codesegmente, Seitenverwaltung u.s.w.) 
unterscheidet sich vom 80286 auch mehr als nur in Details. 


Dennoch wird der Turbo-Pascal-Programmierer im Grunde Pro- 
gramme für den 8086 schreiben, vielleicht um 80286er-Befehle er- 
weitert. Erst Borland Pascal (für Windows) verschafft die Möglich- 
keit, echten 286er-Code zu erstellen - d.h. Programme für den Pro- 
tected Mode zu schreiben; und das, obwohl der 80386 bereits seit 
Jahren auf dem Markt und vermutlich auch schon weiter verbreitet 
als der 8086 oder 80286 ist. 


Trotz all dieser Unterschiede und Fortschritte werde ich weiterhin 
von der CPU reden und damit den 80286, 80386 und i486 (jeweils 
in 16-Bit-Betriebsart) meinen. Der 8086 wird hingegen nur bedingt 
gemeint sein, da er erstens keinen Protected Mode kennt und zwei- 
tens viele Assembler-Befehle nicht kennt, die in den Quelltexten 
dieses Buches selbstverständlich benutzt werden. Die erweiterten 
Befehle des 80386/i486, die auch ab und an verwendet werden, 
sollen hingegen nicht vorausgesetzt werden. Werden sie in den 
Quelltexten verwendet, so wird die (neue) Variable Test8086 dar- 
aufhin getestet, ob diese Befehle zur Verfügung stehen. Wenn von 
der CPU die Rede ist, so ist indes nicht die FPU (FLOATING POINT 
UNIT bzw. Coprozessor) gemeint. 


1.1.1 


Abbildung 1.1: 


Die Register 
des 8086 
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Registerstruktur und Datenformate 


Die Register des 80X86 


Der 8086 besitzt acht ’allgemeine’ 16-Bitregister, AX, BX, CX, DX, SI, 
DI, SP, BP, von denen bei vier Registern noch einmal die oberen 
und unteren 8 Bit als einzelne ’Register’ ansprechbar sind: AL, AH, 
BL, BH, CL, CH, DL, DH. Daneben besitzt er noch 4 Segmentregister 
CS, DS, ES, SS, den Befehlszeiger IP sowie das Flaggenregister 
FLAGS. Abbildung 1.1 zeigt das Grundformat des 80X86-Registersatzes. 


Grundlegend für alle Prozessoren der Reihe ist die segmentierte 

Speicheradressierung. Der Speicher wird danach in mindestens drei 

logische Bereiche (Segmente) eingeteilt: 

- Das Code-Segment, in dem das Programm steht, das abgearbei- 
tet wird. Das Register CS bezeichnet diesen Bereich. 

- Das Daten-Segment, in dem sich die Daten des aktuellen Pro- 
gramms befinden, bezeichnet durch das DS-Register. 

- Das Stack-Segment, bezeichnet durch das SS-Register. 

- Das ES-Register hat keine vorgegebene Funktion und steht zur 
freien Verfügung. 
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In der Betriebsart Real Mode, der ursprünglichen Betriebsart des 
8086, bilden die Register CS, DS und SS einen Teil der physikali- 
schen Adresse des bezeichneten Segments. Diese Adressen müssen 
keineswegs verschieden sein (und sind es bei COM-Programmen 
auch grundsätzlich nicht), da die Segmentierung - wie gesagt - eine 
logische Aufteilung des Speicherraums darstellt und die Segment- 
register allein noch keine vollständige Adresse bezeichnen. Zu einer 
vollständigen Adresse gehört stets noch der Offset in das jeweilige 
Segment. Der Offset in das Codesegment wird durch den Index- 
Pointer IP gebildet, der Offset in das Stacksegment durch den Stack- 
Pointer SP oder den Base-Pointer BP. Der Offset in das Datenseg- 
ment wird (allerdings nicht ausschließlich) durch den Source-Index 
SI gebildet. 


Die physikalische Adresse bildet die CPU im Real Mode durch das 
Anhängen von vier binären Nullen an den Inhalt des Segmentre- 
gisters und Addition des Offsetwertes. Damit stehen maximal 20 Bit 
zur Adressbildung zur Verfügung, was einem Adressraum von ei- 
nem Megabyte entspricht. 


Im Protected Mode wird die physikalische Adresse anders gebildet. 
Der Inhalt der Segmentregister ist dann ein sogenannter Selektor, 
über den ein Index in einer Deskriptorentabelle bezeichnet wird. 
Der bezeichnete (selektierte) Segment-Deskriptor enthält dann u.a. 
auch die physikalische Adresse des bezeichneten Segmentes. Auch 
hier sind die Segmente logische Speicherbereiche, so daß für den 
gleichen physikalischen Speicherraum verschiedene Deskriptoren 
und somit Selektoren zur Verfügung stehen können. 


Ab dem 80386 sind die allgemeinen Register sowie IP und die Flags 
32-Bit-Register und werden als solche mit EAX, EBX, ECX, EDX, ESI, 
EDI, EBP, ESP, EIP und EFLAGS bezeichnet. Außerdem wurden 
zwei weitere universell einsetzbare Segmentregister eingeführt. 
(Abbildung 1.2 zeigt die Registerstruktur ab dem 80386). Ob die 
Register als 16- oder 32-Bit-Register angesprochen werden, hängt 
von dem D-Bit des jeweiligen Segment-Deskriptors ab, das die 
Standardoperanden- und/oder Standard-Adresslänge vorgibt. (Hier- 
zu mehr in Kapitel 12). 


Alle ’allgemeinen’ Register der CPU erfüllen im Zusammenhang mit 
bestimmten Befehlen spezielle Aufgaben. Der ’Akkumulator’ AX z.B. 
ist (auf dem 8086) immer einer der Operanden bei Multiplikation 
und Division und ist z.T. über spezielle (kürzere) Befehle ansprech- 
bar. Funktionen geben in Turbo-Pascal ihre Ergebnisse über den 
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AL/AX (u.U. + DX) weiter. AX ist insofern das ’allgemeinste’ Regi- 
ster. Allerdings kann das AX-Register bis zum 80286 nur bei einem 
Befehl (XLAT) zur Offsetadressierung verwendet werden. 
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Das "Counter-Register’ CX wird bei vielen Befehlen implizit als Zähl- 
register verwendet, etwa bei den Schleifenbefehlen Loop, Loope, 
Loopne wie auch bei den Stringbefehlen mit dem Repeat-Präfix und 
den Rotations- und Schiebebefehlen. Das DX-Register wird auch zur 
Portadressierung verwendet. Der Stackpointer SP steht nicht zur all- 
gemeinen Nutzung zur Verfügung, da der Stack immer ansprechbar 
sein muß. Der Basepointer BP bildet den sogenannten ’Stackframe’ 
und wird somit zur Adressierung von Übergabeparametern verwen- 
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det, SI (Sourceindex) und DI (Destinationindex) werden bei einigen 
Befehlen implizit zur Offsetadressierung benutzt und auch das BX- 
Register spielt z.B. beim Befehl XLAT eine Sonderrolle. Die Register 
haben also sehr spezielle und unterschiedliche Funktionen, ihnen 
allen gemeinsam ist jedoch, daß sie keine Segmentregister sind. 

Im Flaggenregister FLAGS werden je nach dem Ergebnis einer Ope- 
ration bestimmte Bits gesetzt oder gelöscht. Ist das Ergebnis einer 
Subtraktion (bzw. eines Vergleichs) Null, so wird z.B. das ’Zeroflag’ 
ZF gesetzt. Die Flags haben folgende Anordnung: 


Bit 5141321098765 432710 
Funktion - - - - 00ITSzZ-A-P-C 

Bit Bedeutung 

C: Carryflag (Übertragsflag) 

P: Parityflag 

A: Auxiliary-Carry-Flag (nur für Rechenoperationen mit 
Dezimalzahlen) 

Z: Zeroflag (Ergebnis einer Operation ist Null) 

S: Signflag (Ergebnis ist negativ) 

T: Trapflag; ist dieses Flag gesetzt, so wird nach der 
Ausführung eines Befehls ein Traceinterrupt (Interrupt-Nr.1) 
ausgelöst. (Zum Debuggen im Einzelschrittmodus.) 

I: Interruptflag, erlaubt (I=1) oder sperrt (I=0) Interrupts. 

D: Directionflag; legt die Richtung von Stringoperationen fest 


(0 = aufwärts). 
O: Overflowflag (Überlaufsflag) 


Ab dem 80386 umfaßt das erweiterte Flagregister (EFLAGS) noch 
folgende Bits: 

Bit Bedeutung 

16 RF = 1 (Exceptionunterdrückung) 


17 VM: Virtual Mode Flag (Läßt sich nur von Programmen der 
Privilegebene 0 setzen oder löschen). 


14 NT: Nested Task Flag (Taskverschachtelung) 
12..13: IOPL (IO-Privelege Level) 
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Beim 80286 existieren weitere Register, die im Protected Mode eine 
bedeutende Rolle spielen: 


GDTR: Global Descriptor Table Register 
LDTR: Local Descriptor Table Register 
IDTR: Interrupt Descriptor Tabel Register 
als Zeiger auf die gültigen Deskriptortabellen. 
MSW: Machine Status Word mit folgender Belegung: 


Bit EU RE 43210 
Funktion G ------ ET TS EM MP PE 


(ab 80386 bildet das MSW die unteren 16 Bit des CRO) 


Bit Bedeutung 

PE: Protected Mode Enable 

MP: Numerischer Coprozessor 

EM: Software Emulator für den x87 

TS: Taskstate (Taskwechsel hat stattgefunden) 

ET: 1/0 = 387 / 287 

PG: Paging Enable (80386-Seitenverwaltung im Protected Mode) 
(Beim 80286 existieren nur die unteren 16 Bit) 


Das IP-Register bildet zusammen mit dem CS-Segmentregister die 
Adresse des jeweils nächsten Befehls, der ausgeführt werden soll. 
Auf diese Register wird somit ausschließlich über Jump- und Call- 
Befehle ’zugegriffen’, das Codesegmentregister kann aber auch zum 
Zugriff auf Daten genutzt werden, indem ein Segment-Override- 
Präfix vor den Befehl gesetzt wird. 


Will man in einem 16-Bit-Segment auf die 32-Bit-Register zugreifen 
oder umgekehrt, so muß die Operandenvorgabe mit einem Befehls- 
präfix (66h) überschrieben werden. Gleiches gilt für die Adressbil- 
dung, da die Indexregister, mit denen auf den Speicher zugegriffen 
wird, ja ebenfalls 32 Bit umfassen. Wird somit ein Adresspräfix 
(67h) benutzt, so wird die Standardadresslänge überschrieben. 
(Unter Windows oder DPMI stehen unmittelbar nur 16-Bit-Segmente 
zur Verfügung. Die erweiterte Adressbildung des 80386 wird nur bei 
32-Bit-Adressierung aktiviert). 
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1.1.2 


Das Befehlsformat des 80x86 


Wer ausschließlich Turbo-Pascal programmiert, muß sich im Grunde 
mit dem Format der Maschinenbefehle des 80X86 nicht befassen. 
Aber schon bei der Programmierung mit dem eingebauten Assem- 
bler kann es wichtig sein, dieses genauer zu kennen. 


Der 80x86 hat folgendes Befehlsformat: 


[Lock-/Repeatpräfix] 

[Adresspräfix] 

[Operandenpräfix] 

[Segment-Override-Präfix] 
[Operations-Code][MOD-R/M-ByteJ[SIB-Byte][Displacement][Direktwert] 


Alle Präfixe sind optional. Das SIB-Byte existiert nur für die erwei- 
terten Adressierungsmodi ab dem 80386. Ob Displacement und / 
oder ein Direktwert benötigt werden, hängt vom Befehl ab. Folgen- 
de Präfixbytes sind definiert: 


LOCK FOh 

REP/REPE/REPZ F3h 

{ Befehlwiederholung bis (E)CX=0 oder ZF=0, nur bei 

MOVS/STOS/LODS/SCAS/CMPS/INS/OUTS } 

REPNE/REPNZ F2h 

{ Befehlwiederholung bis (E)CX=0 oder ZF=1, nur bei SCAS/CMPS } 

OP-SIZE-OVERRIDE 66h 

{ ab 386: Überschreiben der 16/32-Bit Standard-Segment-Vorgabe } 

ADDRESS-OVERRIDE 67h 

{ ab 386: überschreiben der 16/32-Bit-Standard-Segment-Vorgabe } 

SEGMENT-OVERRIDE: cS DS ss ES (FS) (6S) 
2Eh 3Eh 36h 26h 64h 65h 


Im Operationscode (1..2 Byte) sind oftmals bestimmte Bits von be- 
sonderer Bedeutung: 
W-Bit: 0:Byteoperand 1:Wortoperand 


S-Bit: Vorzeichenbit für Erweiterung eines 8-Bit-Direktwertes auf 
16 oder 32 Bit. 


D-Bit: Direction-Bit = 0 für REGISTER => SPEICHER, sonst 1. 


Das MOD-R/M-Byte enthält die Informationen über die Adressie- 
rungsart des Speicheroperanden: 


Bit:76543210 
[MOD] -------- ERM ] 
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(Die mittleren drei Bits sind fast immer Teil des Opcodes). 
Das SIB-Byte wird erst ab dem 80386 verwendet und erlaubt bei 
32-Bit-Adressierung erweiterte Zugriffsarten. Das SIB-Byte hat fol- 
genden Aufbau: 
Bit 76543210 
Bedeutung [SS] [ I0X ] L[ BAS ] 
(Mehr dazu im nächsten Abschnitt.) 
Die Displacementwerte sind vorzeichenbehaftet, wenn es sich um 
Displacementwerte relativ zu einem Indexregister handelt und kön- 
nen 8 (displ8), 16 (displ16) oder 32 (displ32) Bit umfassen. Analo- 
ges gilt für die Direktwerte (imm8/imm16/imm32). 
1.1.3 Die Adressbildung 


Im Realmodus werden 20-Bit-Adressen aus je einem Segmentregister 
und einem Indexregister und/oder einem Direktwert gebildet. Der 
Wert des Segmentregisters wird um 4 Bit nach links geschoben (mit 
16 multipliziert), das Indexregister (IP) und ggf. ein Direktwert wer- 
den addiert. Der minimale Abstand zweier Adressen mit gleichem 
Offset beträgt somit 16 Byte, was einem ’Paragraphen’ entspricht. 
Dies entspricht der Speicherblockgröße und -ausrichtung, die auch 
von Ms-Dos vorgesehen wird (vergl. Kapitel 11). 


Die physikalische Adresse ist durch Segment und Offsetwert ein- 
deutig bestimmt, jedoch nicht umgekehrt; d.h. zwei verschiedene 
32-Bit-Zeiger (Segment:Offset) können durchaus die gleiche physi- 
kalische Adresse bezeichnen. (Bei der Vergabe von Heapspeicher 
werden die Zeiger von Turbo Pascal ’normalisiert’, d.h. der Offset- 
wert beträgt stets 0 oder 8; in diesem speziellen Fall ist der Zeiger- 
wert eindeutig durch die Adresse bestimmt.) 


Die für den Speicherzugriff zur Verfügung stehenden Modi zeigt 
Tabelle 1.1. 


Allgemein beziehen sich Adressen, die mit BP als Indexregister 
gebildet werden, auf das Stacksegment und alle anderen auf das 
Datensegment, solange keine explizite Segmentvorgabe (Override- 
prefix) vorliegt. Außerdem gilt für die Stringbefehle grundsätzlich, 
daß das Zielsegment durch ES gebildet werden muß. Ein Über- 
schreiben durch ein Segment-Override-Prefix ist in diesem speziel- 
len Fall nicht möglich. 
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Tabelle 1.1: 
Adressierungs- 
arten des 
80x86 


R/M Implizites Indizierung 
Segment 


0 [m 23 [m — | 
D 


on 


FREE 
Ds DEE 
Ds Be 
S 
S 


imm16 


110 


111 D 


O 


SI 
Ds 
s 
s 


001 
010 
011 
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E 
s 
s 
Ds 
Ds 
s 


DS BX+displ16 


S 
S 
S 


fer 
oO 
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Register werden dann adressiert, wenn der Mod-Wert im Mod-R/M- 
Byte drei beträgt. Welche Register gemeint sind, hängt jedoch auch 
von der aktuellen Operandenlänge ab. Bei FPU-Befehlen bezeich- 
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Tabelle 1.2: 
Registeradres- 
sierung 


1 Zentrales: Die CPU 


net der Wert in R/M die Stackposition. Welches Register bei CPU- 
Befehlen angesprochen wird, zeigt Tabelle 1.2. 


mop |rm | 16-Bit-Operand | 32-Bit-Operand 


Ab dem 80386 gelten bei 32-Bit-Adressierung bestimmte Sonder- 
regeln. Abgesehen davon, daß als Indexregister die erweiterten 32- 
Bit-Register verwendet werden, gilt für alle Speicheradressierungen 
mit R/M = 100, daß ein SIB-Byte vorhanden ist. In diesem Fall tritt 
die skalierte, indizierte Basis-Adressbildung in Kraft, eine Art Tabel- 
lenadressierung mit Operandenlängen zwischen einem und acht 
Byte. 

Bei der SIB-Adressierung gelten folgende Regeln: 


[SS]-Wert Skalierungsfaktor 


00 *1 
01 *2 
10 ”4 
11 *8 


Die durch das SIB-Byte ermöglichte indizierte und skalierte Adres- 
sierung unterstützt somit den Zugriff auf Arrays aus Bytes / Worten 
/ Doppelworten / Quadworten direkt. Jedes der allgemeinen Regi- 
ster kann als Indexregister für den Zugriff auf solche ’Arrays’ genutzt 
werden. Man erkennt sofort, daß die SIB-Adressierung ein sehr fle- 
xibles und mächtiges Instrument für den differenzierten Speicherzu- 
griff darstellt. Um so bedauerlicher ist es, daß sie erst ab dem 80386 
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zur Verfügung steht und als 386er-Befehlsform auch von dem in 
Turbo-Pascal eingebauten Assembler nicht unterstützt wird. 


[IDX]-Wert Indexregister 


ee 


[BAS] 


110 
111 


EAX 

ECX 

EDX 

EBX 
undefiniert 
EBP 

ESI 

EDI 


Adressbildung 

[EAX + Skalierung * Index + Displacementl] 
[ECX + Skalierung * Index + Displacement] 
[EDX + Skalierung * Index + Displacement] 
[EBX + Skalierung * Index + Displacementl 
[ESP + Skalierung * Index + Displacement] 
MOD 

00: [Dis32 + Skalierung * Index] 

01/10 : [EBP + Skalierung * Index + Displacement] 
[ESI + Skalierung * Index + Displacement] 
[EDI + Skalierung * Index + Displacement] 


Die Größe des Displacement-Wertes wird durch den MOD-Wert des 
MOD/RM-Bytes festgelegt: 


[MOD] 
00 
01 
10 


Displacement 
dis8 
dis32 


Im Protected Mode wird statt des Wertes, der im Segmentregister 
steht, die Segmentbasisadresse addiert, die in dem Segmentdeskrip- 
tor steht, auf den das Segmentregister verweist. 
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Die Segmente 


Jedes Programm, daß aus einer EXE-Datei geladen wurde, verfügt 
über mehrere Segmente, mindestens ein Code-Segment, ein Daten- 
segment und ein Stacksegment. Turbo Pascal erzeugt für jedes Mo- 
dul, aus dem ein Programm compiliert wird, ein eigenes Code-Seg- 
ment, d.h. für jede UNIT und das Hauptprogramm jeweils ein eige- 
nes Codesegment. Damit ist die Größe des Programms nur durch 
den zur Verfügung stehenden Arbeitsspeicher beschränkt, jedes 
Modul für sich darf jedoch maximal 64 KB Code umfassen. Weiter- 
hin bedeutet dies, daß alle Prozeduren und Funktionen, die im In- 
terfaceteil einer UNIT deklariert sind, als ’FAR’ deklariert sind, d.h. 
daß ihre Adresse stets einen Segment- und einen Offsetanteil ent- 
hält. Alle Prozeduren und Funktionen hingegen, die ausschließlich 
lokal (innerhalb einer Unit oder innerhalb einer Prozedur) deklariert 
sind, werden standardmäßig als ’'NEAR’ codiert. Im diesem Fall be- 
steht ihre Adresse nur aus einem Offsetanteil. (Dies zu wissen, ist 
besonders bei direktem Zugriff auf Übergabeparameter wichtig). 


Besondere Bedeutung besitzt das Stacksegment, da es der Auf- 
nahme aller lokalen Parameter/Variablen und aller Rücksprung- 
adressen dient. Der Stack wächst in Richtung absteigender Adres- 
sen. Wird also ein Wert auf den Stack gelegt, so wird der Stack- 
pointer dekrementiert. Der Stack kennt nur Worte oder (ab 386) 
Doppelworte, d.h. auch Parameter vom Format Byte müssen als 
Worte auf den Stack gelegt werden (Das Hi-Byte ist dann ohne Be- 
deutung). 


Da der Stack in Richtung absteigender Adressen wächst, wird bei 
einem Doppelwort zuerst das Hi-Word und danach das Lo-Word 
auf den Stack gelegt, so daß das Doppelwort gemäß der Intel- 
konvention (Lo-Byte first, Lo-Word first) auf dem Stack liegt. Das 
gleiche gilt für Far-Zeiger: Stets wird der Segmentanteil zuerst (d.h. 
auf der höheren Adresse) auf den Stack gelegt. Vor dem Aufruf 
einer Funktion oder Prozedur werden alle Übergabeparameter auf 
den Stack gelegt. Dann erst wird die Funktion aufgerufen. Die 
Funktion selbst erzeugt dann einen ’Stackframe’, um auf die Über- 
gabeparameter zugreifen zu können und schafft ggf. Platz für eige- 
ne (lokale) Variablen. 


Wer sich die Adressierungsmodi angesehen hat, dem ist vielleicht 
schon aufgefallen, daß der Stackpointer nicht als Indexregister vor- 
gesehen ist und daß bei allen Adressierungsarten, in denen der 
Basepointer (BP) vorkommt, das Stacksegment impliziert ist. Dem- 
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entsprechend wird auch der Stackframe gebildet: Der Basepointer 
wird gesichert und der Stackpointer auf den Basepointer überschrie- 
ben. Danach erfolgt der Zugriff auf die Übergabeparameter relativ 
zum Basepointer. Ein Beispiel: 


Procedure XY(a,b:word); far; 


var c:word: 

{ Aufbau des Stackframe: ----------------------- 
push bp { Basepointer sichern 
mov bp,sp { SP nach BP 


sub sSp,2 { Platz für lok. Variable c schaffen 


mov ax.[bp+t8] { Parameter a nach AX 
mov [bp-2].ax { AX nach Variable C 
etc. 


Der Stack sieht in diesem Beispiel folgendermaßen aus: 


Offset Inhalt 


BP+8 A 

BP+6 B 

BP+4 Segment der Rücksprungadresse 
BP+2 Offset der Rücksprungadresse 
BP gesicherter Basepointer 

BP-2 c 


(Man muß sich um diese Vorgänge allerdings weder in Turbo- 
Pascal, noch beim eingebauten Assembler Sorgen machen, da der 
Aufbau des Stackframes sozusagen durch die ’Anweisung’ begin 
(bzw. asm bei Assemblerroutinen) automatisch erfolgt. Bei TASM ist 
dies anders: Der Programmierer erzeugt den Stackframe.) 


Hierbei unterscheiden sich Prozeduren, die als ’FAR’ deklariert wur- 
den, von solchen, die ’NEAR’ sind. Prozeduren, die innerhalb ande- 
rer Prozeduren deklariert wurden, erhalten zusätzlich Zeiger auf die 
lokalen Variablen der übergeordneten Prozedur(en). Die Methoden 
eines Objekts erhalten zudem implizit einen Zeiger auf ’sich selbst’. 
Vor der Rückkehr aus einer Prozedur oder Funktion muß also der 
Stack ’aufgeräumt’ werden, und alle Parameter müssen beim Rück- 
sprung vom Stack entfernt werden: 


mov sp,bp { Platz für die lokalen Variablen löschen, falls vorh. } 
pop bp { BP restaurieren 
ret 4 { Rücksprung und 4 Byte vom Stack (A und B) } 
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Auch diese Befehle werden vom TP-Compiler mit der end 
Anweisung automatisch eingebaut, sind bei TASM jedoch vom Pro- 
grammierer vorzusehen. 


Bei einer Prozedur, die innerhalb einer Prozedur deklariert wurde 
(und daher auch nur dort definiert ist), muß der lokalen Prozedur 
zusätzlich die Möglichkeit des Zugriffs auf lokale Parameter der 
übergeordneten Prozedur eröffnet werden. Dies geschieht durch die 
implizite Übergabe des Basepointers der übergeordneten Prozedur. 
Ein Beispiel: 


Prozedur Papa(X,Y:Word); 
var Lokal :Word; 
Prozedur Kind(Z:word); 


begin { von Kind } 
Lokal:=Z; 
end; { von Kind } 
begin { von Papa } 
Kind(X-Y): 
end; { von Papa } 


Die Prozeduren würden folgendermaßen compiliert: 


Papa: 
push bp { Stackframe } 
mov bp,sp 
sub sp,2 
mov ax,[bp+8] { X - Y berechnen } 
sub ax,[bp+6] 
push ax { Ergebnis auf den Stack } 
push bp { BP für Zugriff auf lokale Parameter } 
call kind { Kind aufrufen } 
mov sp,bp { Stack aufräumen } 
pop bp 
ret 4 
Kind: 
push bp { Stackframe ohne lokale Variablen erzeugen } 
mov bp,sp 
mov ax,[bpt6] { Z = X- Y nach AX } 
mov di,[bp+4] { BP der Prozedur Papa nach DI } 
[4 
mov ss:[di-2],ax { AX nach Lokal } 
pop bp { Stack aufräumen } 


ret 4 


Man beachte, daß Papa als global bekannte Prozedur über einen 
FAR-CALL aufgerufen wird, Kind jedoch als lokale Prozedur über 
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einen NEAR-CALL. Entsprechend verschieben sich die Positionen 
der lokalen Parameter auf dem Stack. Der Stack sieht innerhalb von 
Kind an der Stelle {*} folgendermaßen aus: 


Offset Offset Inhalt 
DI+8 BP+18 X 
DI+6 BP+16 Y 
DI+4 BP+]14 Segment der Rücksprungaddresse (Papa) 
DI+2 BP+12 Offset der Rücksprungadresse (Papa) 
DI BP+10 gesicherter BP von Papa 
DI-2 BP+8 Lokal 
BP+6 2Z(=X-NY) 
BP+4 BP von Papa 
BP+2 Offset der Rücksprungadresse (Kind) 
BP gesicherter BP von Kind 


Durch die Übergabe des Basepointers an die lokale Prozedur ist 
diese somit in der Lage, die Parameter und lokalen Variablen der 
übergeordneten Prozedur zu addressieren, und zwar unabhängig 
davon, wie sie aufgerufen wurde. (Es könnten ja auch zwei lokale 
Prozeduren existieren, die sich gegenseitig aufrufen.) 


Das Datensegment, in dem die globalen Variablen liegen, wird 
gewöhnlich wesentlich einfacher adessiert, nämlich mit dem 
schlichten Offset der Variablen als Direktwert. Units haben kein 
eigenes Datensegment im Gegensatz zu dynamischen Linkbibliothe- 
ken (DLLs), die jeweils ein Datensegment für sich benutzen und 
daher auf die globalen Variablen des Hauptprogramms keinen Zu- 
griff haben. Daher sind Prozeduren in DLLs stets alle relevanten 
Parameter zu übergeben. Da DLLs unter Windows von verschiede- 
nen Programmen (bzw. Instanzen eines Programms) benutzt wer- 
den können, darf man auch keine Annahmen darüber machen, wel- 
chen Wert eine Variable gerade hat, die in einer DLL deklariert wur- 
de, sobald diese von Nutzern der DLL verändert werden kann. Nur 
Variablen, die bei der Initialisierung der DLL einmal gesetzt werden 
und danach nie wieder verändert werden, sind stets gültig. 


COM-Programme haben übrigens kein eigenes Datensegment, d.h. 
ihr Code- und Datensegment (und Stacksegment) sind identisch. 


Im Datensegment darf im Protected Mode kein Code stehen, bzw. 
dieser darf nicht ohne weiteres ausgeführt werden. Will man also 
z.B. einen Binärtreiber auf den Heap laden und danach einen 
Routine in diesem Treiber ausführen, so muß man sich im Protected 
Mode einen sogenannten Aliascodeselector für das Segment ver- 
schaffen, da der Heap als Datensegment fungiert. Ein Aliasselektor 
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ist ein Selector, der auf das gleiche Segment im Arbeitsspeicher 
verweist, aber die komplementären Attribute besitzt. 


Äquivalentes gilt für das Codesegment im Protected Mode: Es darf 
nur über einen Aliasselektor schreibend darauf zugegriffen werden. 


Den Aliasselektor zu einem Codesegment erhält man durch 
schlichte Addition von SelectorInc zum Codesegmentselektor. Beim 
Datensegment ist dies äquivalent, d.h. durch Addition von Selec- 
torInc erhält man den entsprechenden Codesegmentselektor zum 
Datensegment. Bei globalen Variablen auf dem Heap ist dies jedoch 
nicht so. Hier helfen die Funktionen der UNIT WINAPI. 


Die Datenformate 


Turbo Pascal bildet die 8- und 16-Bit-Formate auf Standarddaten- 
typen ab. So existieren Shortint und Byte (bzw. Char) als 8-Bit- 
Datentypen mit bzw. ohne Vorzeichen, Word und Integer als die 
entsprechenden 16-Bit-Formate. Funktionsergebnisse mit acht Bit 
werden in AL übergeben, 16-Bit-Formate in AX, d.h. daß die Ergeb- 
nisse nach dem Funktionsaufruf in AL bzw. AX stehen müssen. 
Hierauf ist besonders bei Assemblerroutinen zu achten. Funktionen, 
die nicht als ’Assembler’ deklariert wurden, sorgen selbst dafür, daß 
der über die Anweisung ’Funktion:=Ergebnis;’ zugewiesene Wert am 
Ende der Funktion nach AL bzw. AX geschrieben wird. Dies wird in 
der Form realisiert, daß der Turbo-Pascal-Compiler stets stillschwei- 
gend eine lokale Variable für das Funktionsergebnis anlegt (und 
zwar direkt unterhalb des Stackframes). Wird dem Funktionsbe- 
zeichner ein Wert zugewiesen, so wird dieser nicht direkt in das 
entsprechende Register geschrieben, da noch Anweisungen folgen 
können, die diesen Wert wieder überschreiben würden, sondern in 
diese lokale Variable. Erst am Ende der Funktion wird das Ergebnis 
in den Akkumulator (AX) geladen. 


Um zu verstehen, warum Turbo Pascal z.B. drei verschiedene 8-Bit- 
Formate anbietet - Byte, Char und Shortint - obwohl diese vom 
Prozessor gar nicht unterschieden werden, ist es nötig, ein wenig 
auszuholen. 
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1.2.1 


Binärzahlen 


Bit kommt von Binary Digit und bezeichnet eine binäre Ziffer, d.h. 
einen Wert von 0 oder 1. Der Umgang und das Rechnen mit binä- 
ren Zahlen ist ein wenig gewöhnungsbedürftig, bietet aber anderer- 
seits eine Reihe ganz erheblicher Vorteile. 


Die Darstellung von Zahlen basiert praktischerweise immer auf ei- 
ner Einheit, danach auch Basis des Zahlensystems genannt. Das De- 
zimalsystem basiert auf der Zehn als Basis, was nichts anderes be- 
deutet, als daß der Umfang an Ziffern, die zur Darstellung einer 
Zahl herangezogen werden, genau zehn ist, nämlich ’0°.’9’. Eine 
Anzahl hängt freilich nicht davon ab, wie man sie darstellt. Man 
könnte auch mit Strichen (oder Fingern) zählen, oder wie die 
Römer mit Buchstaben. Allerdings bilden solche Zählmethoden 
einen Sonderfall, da sie nicht so systematisch sind, wie unser 
Zahlensystem. 

Die ’Anzahlen’ 0..9 stellen wir durch die entsprechenden Ziffern 
dar. Die Anzahl zehn läßt sich demnach aber nicht mehr mit einer 
Ziffer darstellen, es sei denn, man erweitert den Umfang an Ziffern, 
z.B. um die Buchstaben ’A’..’F’. In diesem Fall kann man mit einzel- 
nen Ziffern bis fünfzehn zählen, und man würde die Anzahl fünf- 
zehn durch ’F’ darstellen. Der Umfang an Ziffern muß aber begrenzt 
sein, da sonst für jede noch größere Zahl eine neue Ziffer erfunden 
werden müßte. Dies wird durch eine Zerlegung bewerkstelligt. So 
wird im Dezimalsystem die Zahl fünfzehn’ in fünf + zehn’ zerlegt, 
d.h. 15 =1*10+5*1. Die Zahl 273 wird in2*100+7*10+3*1 
zerlegt. Diese Zerlegung läßt sich aber mit Hilfe der Exponential- 
schreibweise noch weiter systematisieren: 


273=2*102 +7 * 101 +3* 100. 
Damit wird auch klar, wieso das Dezimalystem wirklich auf der 


zehn basiert und nicht etwa auf der neun (als größter Ziffer). 


Will man nun Zahlen in einem anderen System darstellen, z.B. im 
Hexadezimalsystem (Ziffern ’0°..'’F’), so geht man genauso vor: 


1* 10h? + 1 * 10hl + 1 * 10nÜ 
1* 16d2 + 1 * 16d #1 

256d + 16d + 1 

273d. 

(h steht für hexadezimal, d für dezimal) 


D.h. 273d ist gleich 111h. 


111h 
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Genauso kann man den Vorrat an Ziffern aber auch auf zwei be- 
schränken, ’0’ und ’1’. Die Zahl 273d wird dann in Zweierpotenzen 
zerlegt. Die größte Zweierpotenz, die gerade noch kleiner ist als 
273, ist 256 = 28, als Rest bleibt 17d u.s.w. 


=> 2734 =1*28 + 1% 24% + 1 * 20 = 100010001b. 


Diese Zahl hat 9 binäre Ziffern und ist somit durch ein Byte mit acht 
Ziffern nicht mehr darstellbar, woraus folgt, daß mit einem Byte nur 
die Zahlen 00000000b..11111111b entsprechend 0..255 dezimal dar- 
stellbar sind. Dies scheint extrem wenig zu sein. Man könnte mei- 
nen, ein solcher Datentyp sei deshalb nicht sehr nützlich. Wenn 
man aber bedenkt, was z.B. durch 256 Farben auf einem Bildschirm 
alles darstellbar ist, oder wie viele Zeichen ein Zeichensatz mit 256 
Zeichen umfassen kann u.v.a.m., so wird man vielleicht bald an- 
derer Meinung sein. In der Tat benötigen die meisten Zählvorgänge 
in der Programmier-Praxis noch nicht einmal ein Byte. 


Der Pascal-Datentyp ’Shortint' umfaßt ebenfalls acht Bit, jedoch mit 
Vorzeichen. Wie aber werden negative Zahlen binär dargestellt ? Es 
läge nahe, für das Vorzeichen ein Bit zu reservieren. Das wäre 
sicherlich die einfachste Methode, sie hätte allerdings (mindestens) 
einen gravierenden Nachteil: Es gäbe eine ’positive' und eine 
’negative’ Null. Das würde das Rechnen mit solchen Zahlen nicht 
gerade vereinfachen. Tatsächlich wird ein anderer Weg eingeschla- 
gen, das sogenannte ’Zweierkomplement. Dieses erhält man, indem 
man alle Bits der Zahl invertiert, d.h. das ’Einerkomplement’ bildet, 
und dann eins addiert. Die Negation von 00000001b ist demnach 
11111110b + 1 = 11111111b = -1. Auch bei dieser Methode gibt das 
höchste Bit den Ausschlag, ob die Zahl positiv oder negativ ist, sie 
hat jedoch den Vorteil, daß erstens -0 = +0, da bei einer 
Begrenzung auf acht Bit -O0 = 11111111b + 1 = 00000000 ist und 
zweitens, daß es für die Algorithmen von Addition bzw. Subtraktion 
unerheblich ist, welches Vorzeichen die zu addierenden oder zu 
subtrahierenden Zahlen haben: Die Bitmuster sind identisch: - 2 + 2 
= 0 schreibt sich binär bei 8-Bit-Zahlen zu 11111110b + 00000010b 
0. Der Überlauf wird dann entsprechend im Flagregister ange- 
zeigt. Der Prozessor unterscheidet bei Addition und Subtraktion we- 
der zwischen Byte und Shortint noch zwischen Word und Integer. 
Dem Assemblerbfehl add al,bl, der den Wert von BL zu AL addiert, 
ist es gleichgültig, ob diese Register vorher mit Turbo-Pascal Daten 
vom Typ Shortint oder Byte (oder auch Char) geladen wurden. Es 
ist somit reine Interpretationssache, ob ein 8-Bit breites Datum eine 


1.2 Die Datenformate 19 


Zahl (mit oder ohne Vorzeichen), ein Zeichen des ASCII- 
Zeichensatzes (ein ’Character’ also) oder auch ein Pixelmuster dar- 
stellt. Der Turbo-Pascal-Compiler wird zwar bei dem Programm 


var i:byte; 

begin 

ie A'; 

end. 
mit einer Fehlermeldung abbbrechen, nicht jedoch bei folgendem 
Programm: 


var i:byte: 

begin 

asm 

mov al,'A' 
mov i,al 

end; 

end. 
Die beiden Programme sind im Prinzip identisch, dennoch aber 
muß in Pascal das Ascii-Zeichen ’A’ über die Anweisung i:= ordCA’) 
in den Datentyp Byte 'konvertiert' werden. Diese ’Konvertierung? ist 
im Grunde keine, sondern nur eine Uminterpretation, dennoch aber 
hat sie ihre Funktion. So würde z.B. die Anweisung write(i) im 
obigen Programm die Zeichenfolge ’65’ erzeugen, write(’A’) 
allerdings das Zeichen ’A’. 
Es gibt auch Assemblerbefehle, die Unterschiede zwischen Zahlen 
mit und ohne Vorzeichen machen. Zum einen sind da die Multipli- 
kations- und Divisionsbefehle für vorzeichenbehaftete Zahlen IMUL 
und IDIV im Gegensatz zu denen für vorzeichenlose Zahlen (MUL 
und DIV), zum anderen gibt es zwei Sorten von Vergleichen und 
bedingten Sprüngen, die auf den ersten Blick unverständlich 
erscheinen. Der Befehl JA (jump if above) erzeugt ein anderes Er- 
gebnis als der Befehl JG (jump if greater). Das kommt daher, daß 
die Bezeichnungen above/below sich auf den Vergleich vorzeichen- 
loser Zahlen beziehen (Worte), während die entsprechenden Rela- 
tionen für vorzeichenbehaftete Zahlen (Integer) greater/less sind. 
Die Befehlsfolge 


cmp ax,bx 
jge @@label (jge = jump if greater or equal) 


ee abe: 
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erzeugt also genau dann einen Sprung, wenn das Register AX als 
Integer interpretiert 'größer’ ist als das Register BX (als Integer inter- 
pretiert). 

Der Vergleichs- u. Sprungbefehl für den Datentyp Word würde 


cmp ax.bx 
jae @@]abe] 


@@label i 


lauten. Der Vergleichsbefehl tut hierbei nichts anderes, als die Flag- 
gen so zu setzen, als ob BX von AX subtrahiert worden wäre, ohne 
dabei allerdings den Wert von AX zu ändern. Der bedingte Sprung 
erfolgt jedoch nicht deshalb, weil ein Vergleich mit einem bestimm- 
ten Ergebnis stattgefunden hat, sondern deshalb, weil im Flaggenre- 
gister die entsprechenden Flaggen gesetzt oder eben nicht gesetzt 
sind. Dies bedeutet, daß zwischen Vergleich und Sprunganweisung 
beliebig viele Befehle stehen können, solange diese Befehle den 
Inhalt des Flag-Registers nicht beeinflussen. Man kann aber auch 
das Flaggenregister mit dem Befehl Pushf auf den Stack legen und 
erst später auswerten. Dieser Sachverhalt kann in Assemblerroutinen 
von großem Nutzen sein. 


Da negative Zahlen durch das Zweierkomplement dargestellt wer- 
den, ist es für die korrekte Interpretation eines Wertes unerläßlich, 
zu wissen, wieviele Bits bzw. Bytes er umfaßt. Steht z.B. im Register 
AL die Zahl -1, und in AH eine Null, so steht im Register AX weder 
das eine noch das andere, sondern 255. Will man den Wert, der in 
AL steht, als 16-Bit-Zahl erhalten, so muß AL entsprechend erweitert 
werden. Hierfür stehen die Maschinenbefehle CBW (Convert Byte to 
Word: AL als vorzeichenbehaftete Zahl nach AX) und CWD 
(Convert Word to DWord: AX => DX:AX vorzeichengerecht) zur 
Verfügung. Steht etwa in AL -1 @ 11111111b), so wird der Befehl 
CBW alle Bits in AH mit 1 belegen, so daß in AX ebenfalls -1 = 
11111111 11111111b) steht. Bei vorzeichenlosen Zahlen hingegen 
müßte AH einfach mit Null belegt werden, unabhängig davon, wel- 
chen Wert AL aufweist. 


32-Bit-Formate 


Neben den 8- und 16-Bit-Formaten bietet Turbo Pascal noch das 32- 
Bit-Format ’Longint’ für vorzeichenbehaftete ganze Zahlen zwischen 
-232 . 232.1], sowie das 32-Bit-Format ’Pointer. Die 32-Bit-Formate 
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werden als Funktionsergebnis in den Registern DX:AX übergeben, 
d.h. das höherwertige Wort (bzw. der Segmentanteil) in DX, das 
niederwertige Wort (bzw. der Offsetanteil) in AX. 


Da bis zum 80386 kein 32-Bit-Register zur Verfügung steht, müssen 
etwaige Operationen auf 32-Bit-Zahlen mit mehreren Assemblerbe- 
fehlen nachgebildet werden. Natürlich lassen sich im Prinzip belie- 
big lange Zahlenformate bilden und diese auf entsprechend viele 
Worte verteilen, so wie sich beliebig lange Zahlen mit entsprechend 
vielen Ziffern darstellen lassen. Will man solche Zahlen per 
Assembler addieren, so muß man lediglich beachten, daß dabei na- 
türlich ein Übertrag entstehen kann. Eine Additionsroutine für 
Longint-Zahlen sähe z.B. folgendermaßen aus: 


Function LongAdd(a,b:Longint):Longint; Assembler; 
asm 
mov ax,a.word[0] { Lo-Word nach AX } 
mov dx,a.word[2] { Hi-Word nach DX 
add ax,b.word[0] { Lo-Word addieren, Übertrag im Carryflag } 
adc dx.b.word[2] { Hi-Word mit Übertrag addieren 
end; 


(Das Funktionsergebnis steht automatisch in DX:AX) 

Auf einem 80386 ließen sich natürlich auch direkt die 32-Bit- 
Register verwenden. Leider werden diese Befehle vom eingebauten 
Assembler nicht unterstützt, so daß man gezwungen ist, einen exter- 
nen Assembler zu benutzen (z.B. TASM, der im Lieferumfang von 
Borland Pascal enthalten ist). Eine solche Routine könnte folgender- 
maßen aussehen: 


LongAdd Proc Far 


push bp { Framepointer sichern } 
mov bp,sp { Stackframe erzeugen } 
.386 { 386-er Befehle zulassen } 
mov eax,[bp+10) { Erster Wert nach EAX } 
add eax,[bp+6] { Zweiten Wert addieren } 
shld edx,eax,16 { Die oberen 16 Bit von EAX nach DX kopieren } 
.8086 { wieder auf 8086 umschalten } 
pop bp { Framepointer restaurieren } 
ret 8 { RET und Parameter vom Stack } 


LongAdd endp 


Die Befehle für die Subtraktion lauten SUB (ohne Carryflag) und 
SBB (mit Carryflag). Man sieht, daß sich der Einsatz der breiten Re- 
gister für 32-Bit-Addition kaum lohnt, da das Ergebnis ja doch wie- 
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der in den Registern DX:AX (und nicht in EAX) übergeben werden 
muß. Dies ist bei Multiplikation und insbesondere bei der Division 
anders. Der 8086 kennt keine Befehle, um 32-Bit-Werte zu mul- 
tiplizieren oder zu dividieren. Die Operationen IDIV/DIV teilen 
maximal einen 32-Bit-Wert durch einen 16-Bit-Wert, nicht aber zwei 
32-Bit-Werte durcheinander. Es gibt meines Erachtens auch keine 
brauchbare Methode, diese Befehle zur Division von 32-Bit-Zahlen 
einzusetzen, es sei denn, der Teiler ist effektiv maximal 16 Bit breit. 
Stattdessen kann man allerdings für den 8086/80286 einen anderen 
Algorithmus benutzen. Er hat allerdings den Nachteil, relativ lang- 
sam zu sein, da das Ergebnis Bit für Bit berechnet wird, so wie man 
bei einer Division auf dem Papier ebenfalls Ziffer für Ziffer 
berechnet. 


Das Rechnen mit ganzen Zahlen 


Bei dem Rechnen mit ganzen Zahlen gilt es, einige Besonderheiten 
zu beachten, die auf das Rechnen mit Fließkommazahlen so nicht 
zutreffen: 

1) Alle Zahlen und Rechenergebnisse sind Ergebnisse Modulo 2N, 
wenn n die Anzahl an binären Stellen ist, die zur Darstellung 
verwendet wird. 

2) Addition und Subtraktion sind bei der Darstellung über das 
Zweierkomplement ’identisch’, d.h. die Vorzeichen spielen bei 
additiven Operationen keine Rolle. 

3) Die ganzzahlige Division ist stets eine Division mit Rest: 
A=(ADIVB*B+AMODB 


Dies bedeutet, daß Division und Multiplikation i.a. nicht 
kommutativ sind: 
(A *B) div B ist größer oder gleich (A div B)*B! 

4) Adiv2%R=Ashrn, undA*2N=Ashln. 

D.h., daß Division durch oder Multiplikation mit Zweierpotenzen 
sich durch (wesentlich schnellere) Schiebebefehle ersetzen 
lassen. 

5) Es gibt zwar das Quadrat jeder ganzen Zahl als ganze Zahl, nicht 
jedoch jede Quadratwurzel einer ganzen (pos.) Zahl ist eine 
ganze Zahl. Stattdessen wird eine Routine vorgestellt werden, 
die eine Quasiwurzel aus einer positiven Integerzahl zieht, d.h. 
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ISORT(D = TRUNC(SQRT@), ohne dabei allerdings die Fließ- 
kommaroutinen SQRT und TRUNC zu verwenden. 

6) Das Rechnen mit ganzen Zahlen ist exakt. Solange man nicht mit 
größeren Zahlen zu rechnen versucht, als die Anzahl binärer 
Stellen zuläßt, ergibt sich niemals ein Fehler durch Rundung, 
während dies bei Fließkommazahlen sehr wohl der Fall sein 
kann. (Das Prüfen auf Gleichheit zweier Zahlen, das bei Fließ- 
kommazahlen problematisch ist, ist bei ganzen Zahlen sehr wohl 
zulässig und sinnvol)). 


Die UNIT DWORDS enthält einige Routinen zum Rechnen mit 
ganzen, vorzeichenlosen Zahlen von 32 Bit Länge. Addition und 
Subtraktion fehlen, da wie gesagt die Operationen mit den ent- 
sprechenden Longint-Operationen identisch sind. Die Funktion 
D_GGT berechnet den größten gemeinsamen Teiler zweier Doppel- 
worte, die Funktion D_KGV das kleinste gemeinsame Vielfache. Die 
Routinen sind natürlich vor allem dann von Interesse, wenn man 
mit Brüchen (und ohne Rundungsfehler) rechnen möchte. Die 
Funktion DSQRT, die die 'Quadratwurzel’ eines Doppelwortes 
berechnet, basiert auf einem an sich bekannten Algorithmus zur Be- 
rechnung von Wurzeln: 


X V2 RO ra/ m). 


Die Reihe der x,, Konvergiert (bei beliebigem Anfangswert xg) ex- 
trem schnell gegen die Quadratwurzel von a. Dieser an sich für Re- 
elle Zahlen entworfene Algorithmus funktioniert (fast) ebensogut 
bei ganzen Zahlen: 


X] = CO %n + a div an ) shr 1. 


(Zu meiner großen Überraschung fand ich im Quelltext der Turbo 
Vision ebenfalls eine Routine, die die 'Quadratwurzel’ einer Integer- 
zahl berechnet. Sie wird dort zum ’Tiling’ von Fenstern eingesetzt. 
Die Routine funktioniert nach dem Irrtumsprinzip: Sie inkrementiert 
einen Zähler von 1 an aufwärts solange, bis sein Quadrat größer als 
der Radikant ist. Man vergleiche einmal die Geschwindigkeitsdiffe- 
renz zwischen dieser Methode und derjenigen aus der UNIT 
DWORDS D 

Die UNIT QWORDS entspricht der UNIT DWORDS weitestgehend. 
Leider jedoch läßt sich mit Turbo Pascal nur über Tricks ein Funk- 
tionsergebnis erzeugen, das länger als 4 Byte ist, so daß die 
meisten Routinen der UNIT QWORDS als Prozeduren formuliert 
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wurden. Der Datentyp QWORD entspricht dem Datentyp COMP, er- 
möglicht es jedoch, Modulo-Operationen auszuführen und somit 
Ganzzahlrechnungen und Bruchrechnungen im eigentlichen Sinne 
durchzuführen und zwar auch ohne Einbindung des Fließkomma- 
emulators. Denn der Datentyp COMP - ein 64-Bit-Integer - wird in 
Turbo Pascal als 'numerischer’ Typ nicht durch die CPU, sondern 
durch die FPU bearbeitet. Das steigert durch die Einbindung des 
Fließkommaemulators den Programmumfang erheblich. 


unit dwords; 
interface 


type dword=longint; 


function dstr(a:dword):string; 
{ Doppelwort in String konvertieren } 


function dval(s:string; var a:dword):integer; 
{ String mit Integerwert in Doppelwort konvertieren } 


function dmul (a,b:dword) :dword; 
{ Zwei Doppelworte multiplizieren } 


procedure dDivMod(a,b:dword; var d,m:dword); 
{ Quotienten und Rest der Division von A durch B errechnen } 
{D=ADIVB; M=AMOD B } 


function D_GGT(a,b:dword):dword; 
{ Größten gemeinsamen Teiler zweier Doppelworte berechnen } 


Function D_KGV(a,b:dword) :dword; 
{ Kleinstes Gemeinsames Vielfaches zweier Doppelworte berechnen } 


function DSqrt(D:DWORD) :WORD; 
{ Der Eigabeparameter D muss <= $FFFEO000 sein, da das } 
{ Ergebnis sonst nicht mehr als Wort darstellbar ist ! } 


implementation 
function dmul(a,b:dword) :dword; external; 
procedure dDivMod(a,b:dword; var d,m:dword); external; 


{$L DWORDS.OBJ} 


function DSqrt(D:DWORD):WORD; assembler; 
{ Algorithmus, wie im Text beschrieben: } 
{ Xn+l = 1/2 * (Xn + a/Xn) } 
asm 
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mov cx,d.word[2] 


cmp cx,$FFFE 
ja @@error 
je @@max 


mov si,d.word[0] 


or CX,cX 

jnz @@start 

cmp si,8 

je @&@ls2 

jb @@smal] 
@@start: 

mov bx,$A5A5 
@@]:mov dx,cx 

mov ax,si 

div bx 

add ax,bx 

shr ax,1 

cmp ax,bx 

je @@2 

inc ax 

cmp ax,bx 

je @@2 

mov bx, ax 

jmp @@1 
@@max: 


mov ax,-1 (= 


jmp @Gexit 
@@error: 

xor aX,ax 

jmp @@exit 
@@small: 

cmp si,4 

jae @@Is2 

mov ax,1l 

or si,si 

jnz @Gexit 

dec ax 

jmp @@exit 
@@1s2: 

mov ax,2 

jmp @@exit 
@@2: 

mov ax,bx 

mul ax 

cmp dx,cx 

jne @@3 

cmp ax,Si 
@@3:jbe @@4 


{ D < $10000 ? } 
{D«8?} 


{ Startwert 
{ DX:AX = CX:SI 


{ Durch Xn teilen 
{ Addieren.. 


{ ..und durch 2 teilen 
{ Xn+1=Xn ? 


SFFFF } 


{ Ergebnis überprüfen: } 


u nu 
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dec bx 
jmp @@2 
@@4:mov ax,bx 
@@exit: 
end; 


function D_GGT(a,b:dword):dword; 
{ Anwendung des "Euklidischen Algorithmus": } 
{A:B=D,RestM ; Falls M>0 dann: } 
{B:M=Dl, RestM us.,bisM=-0. } 
var d,m:dword; 
begin 

repeat 

ddivmod(a,b.d.m); 

a:=b; 

b:=n; 

until (m=0); 

D_G6T:=a; 
end; 


Function D_KGV(a,b:dword):dword; 
{ Kleinstes gemeinsames Vielfaches zweier Zahlen A und B ist } 
{ (A * B)/GGT(A.B) : z.B. K@aV(6,15) =6 *15 /3=2*15= 30 } 
var c,m:dword; 
begin 
ddivmod(a,d_ggt(a,b).c,m): 
D_KGV:=DMUL(C.B); 
end; 


function dstr(a:dword):string; 
var s:string; 
i:byte; 
d,m:dword; 
begin 
s[0]:=#0; 
while (a<>0) do 
begin 
ddivmod(a,10,d,m); 
s:=chr (m+48)+S; 
a:=d; 
end; 
if s[0J=#0 then dstr:='0' else dstr:=s; 
end; 


function dval(s:string;var a:dword):integer; 
var i:byte; 
begin 

dval:=0; 
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a:=0; 
i:=l; 
while (i<=ord(s[0])) and (s[i] in [' '.'+'"J) do inc(i); 
while i<=length(s) do 
begin 
if s[i] in ['0'..'9'] then 
begin 
a:=dmul(a,10); 
a:=atord(s[i])-48; 
end else 
begin 
dval:=i; 
exit; 
end; 
inc(i); 
end; 
end; 


end. 


Das eingebundene Assembler-Modul enthält 80386er-Befehle. Des- 
halb ist es günstiger, dieses Modul mit TASM zu compilieren und 
einzubinden, als die Maschinenbefehle einzeln mit dw XXXX oder 
inline zusammenzusetzen. Die 386er-Befehle werden natürlich nur 
aktiviert, wenn die Variable Test8086 anzeigt, daß die aktuelle CPU 
diese Befehle auch verarbeiten kann. In diesem Fall ist die Verarbei- 
tungsgeschwindigkeit durch die Nutzung der 32-Bit-Register ein 
vielfaches. 


Hier ist es: 
RR 
Copyright (c) 1993 by CHRISTIAN BAUMGARTEN 1993 
DWORD CALCULATION ROUTINES FOR 8086/80386er CPUs 
un 
TITLE DWORDS 
LOCALS 
DATA SEGMENT BYTE PUBLIC 
EXTRN  TEST8086:BYTE 
DATA ENDS 


CODE SEGMENT BYTE PUBLIC 
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DE ‚DS:DATA 


De 2 12.212 12,2 1212,22 ,2 212 2222121212 12.0,2 2 12,2,20202 2722.02 0210,22 2 222 2222222 2 2202 2 2 22222212 02,2,2,2,2 


PUBLIC DMUL 
PUBLIC DDIVMOD 


DMUL PROC 
MOV 


@GEXIT: RET 
E86: MOV 


RET 
DMUL ENDP 


DDIVMOD PROC 
PUSH 
MOV 
CMP 
JB 
.386 
XOR 
MOV 
DIV 
LES 
MOV 
LES 
MOV 
.8086 

@GEXIT: POP 
RET 


FAR ; FUNCTION DMUL(A,B:DWORD) :DWORD; 
BX,SP 

TEST8086,,2 

8086 


EAX,DWORD PTR SS: [BX+4] 
DWORD PTR SS: [BX+8] 
EDX,EAX,16 


8 

AX „SS: [BX+4] 

WORD PTR SS:[BX+8] 
DI,DX 

SI,AX 

AX ‚SS: [BX+4] 

WORD PTR SS:[BX+10] 
DI,AX 

AX SS: [BX+8] 

WORD PTR SS: [BX+6] 
DI,AX 

DX,DI 

AX,SI 

8 


FAR ; PROCEDURE DDIVMOD(A,B:DWORD; VAR D,M:DWORD); 
BP 

BP,SP 

TEST8086,2 

6886 


EDX,EDX 

EAX ‚DWORD PTR [BP+18] 

DWORD PTR [BP+14] 

DI,DWORD PTR [BP+10] ; EAX nach D schreiben 

ES: [DI] ,EAX 

DI,DWORD PTR [BP+6] ; EDX (Rest) nach M schreiben 
ES:[DI],EDX 


BP 
16 ; 4 Doppelworte vom Stack 
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@@B6: mov si,[bp+14] 
mov di,[bp+16] 
mov ax,[bp+18] 
mov dx,[bp+20] 


@@1: rel cx,1 


@@2: cmc 


@@3: xor ax,ax 


@@4: pop bp 
les di,[bp+10] 
mov es:[di],ax 
mov es:[di+t2],dx 
les di,[bp+6] 
mov es:[di].cx 
mov es:[di+2].bx 
JMP @@EXIT 

DDIVMOD ENDP 


CODE ENDS 
END 


1.2.4 BCD-Zahlen 


Binary Coded Decimals sind binär codierte (oder ’gepackte’) Dezi- 
malzahlen. Die Codierung besteht darin, daß für jede Dezimalziffer 
genau ein Nibble (= vier Bit) vorgesehen wird. Die Dezimalzahl 
1234 wird z.B. durch die BCD-Zahl 1234h dargestellt. Die CPU 
kennt Befehle, die das Rechnen mit BCD-Zahlen erleichtern. Der 
Befehl DAA (DAS) etwa ersetzt das Register AL durch einen BCD- 
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korrigierten Wert nach einer Addition (Subtraktion) von (gepackten) 
BCD-Zahlen. Steht im unteren Nibble von AL vor der Anwendung 
von DAA ein Wert größer 9, so wird von diesem Nibble zehn abge- 
zogen, das obere Nibble um einen inkrementiert und das Auxiliary- 
Carry-Flag gesetzt. Ergibt das obere Nibble hiernach einen Wert 
größer 9, so wird entsprechend vom oberen Nibble 10 abgezogen, 
und der Übertrag wird im Carryflag angezeigt. Turbo Pascal unter- 
stützt das Rechnen mit BCD-Zahlen nicht. 


Ungepackte Dezimalzahlen 


Ungepackte Dezimalzahlen enthalten im Gegensatz zu gepackten 
BCD-Zahlen in jedem Byte nur eine Dezimalziffer (im unteren Nib- 
ble). Die CPU stellt insgesamt vier Befehle (AAA, AAS, AAM, AAD) 
zum Rechnen mit ungepackten BCD-Zahlen zur Verfügung. Die Be- 
fehle AAA/AAS dienen der Korrektur nach der Addition/Subtraktion 
von ungepackten Dezimalzahlen, AAM dient der Korrektur nach ei- 
ner Multiplikation, und AAD dient der Korrektur vor einer Division: 


AMM: AH := AL DIV 10 
AL := AL MOD 10 

MD: AL := AH * 10 + AL 
AH := 0 


Weitere Informationen hierzu können z.B. dem Turbo-Assembler- 
Handbuch entnommen werden. 


Der Datentyp String 


Turbo Pascal stellt einen Datentyp ’String’ zur Verfügung, der einzi- 
ge zusammengesetzte Datentyp, der in Turbo Pascal als Funktions- 
ergebnis erlaubt ist. (Man kann dies nutzen, um z.B. andere Daten- 
typen, die ’in’ einen String ’gelegt’ werden, ebenfalls zu Funktions- 
ergebnissen zu machen. Dies kann die Programmierung etwa von 
Komplexen Zahlen erheblich vereinfachen. 


Ein String ist im Grunde nichts als eine Zeichenfolge, also ein "Array 
of Char’, dessen nulltes Zeichen - als Byte interpretiert - die Länge 
des Strings bezeichnet. Somit kann ein Pascal-String maximal 255 
Zeichen aufnehmen. Neben dem Pascal-String steht ein (in Pascal) 
neuer Datentyp PCHAR (in der UNIT STRINGS) zur Verfügung. Ein 
PCHAR ist ein Zeiger auf ein Array of Char, dessen Länge jedoch 
nicht in einem Längenbyte mitgeteilt wird, sondern quasi durch den 
Inhalt: Ein PCHAR ist ein String, dessen letztes Zeichen ein Nullzei- 
chen (Ascii 0, nicht ’0’ I) ist. Die maximale Länge eines PChars ist 
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somit durch die Segmentlänge gegeben. Der Typ PCHAR wurde ein- 
geführt, weil er der Standard-Stringtyp von Windows ist. Aber auch 
Ms-Dos erwartet in praktisch allen Funktionsaufrufen, bei denen ein 
String übergeben werden muß, nullterminierte Stringtypen. Natür- 
lich haben beide Stringvarianten ihre Vor- und Nachteile. Nulltermi- 
nierte Strings können bis zu 64KB lang sein, während der Turbo- 
Pascal-String maximal 256 Byte umfassen kann. Dafür ist die Länge 
eines nullterminierten Strings nur relativ aufwendig herauszufinden, 
und ein nullterminierter String darf eben keine Null enthalten. Die 
mit Borland Pascal mitgelieferte UNIT STRINGS enthält alle notwen- 
digen Funktionen, um die Stringtypen ineinander zu konvertieren, 
bzw. um nullterminierte Strings zu bearbeiten. 


Die Stringbefehle 


Die Bearbeitung von Strings bzw. stringartigen Datenstrukturen ist 
die eigentliche Domäne aller Assemblerprogrammierung. Das liegt 
daran, daß gerade kurze Schleifen in Assembler programmiert sehr 
viel schneller durchlaufen werden als äquivalente Schleifen in den 
meisten Hochsprachen (einschließlich Turbo Pascal). Der Grund 
hierfür ist einfach: Durch die effektive Nutzung der CPU-Register als 
’Jokale Variablen’ kann man die Anzahl der Speicherzugriffe - und 
insbesondere die Anzahl der ’'LES’- und ’LDS’-Befehle - extrem 
reduzieren. Dies spielt besonders dann eine Rolle, wenn eine kurze 
Schleife nicht nur einmal, sondern gleich x-mal durchlaufen wird. 
Dies ist der Fall, wenn Zeichenketten verarbeitet werden sollen. Ein 
weiterer Grund für die Geschwindigkeitssteigerung durch die Pro- 
grammierung in Assembler liegt darin, daß die CPU-Befehle zur 
Bearbeitung von Strings ein Repeat-Prefix erlauben, das dafür sorgt, 
daß ein Befehl selbst bereits eine bedingte Schleife darstellt. Wäh- 
rend der Bearbeitung dieses Befehls ist es deshalb nicht notwendig, 
den jeweils nächsten (iterierten) Befehl einzulesen. Die Bearbei- 
tungszeit eines Befehls wird dadurch derart minimiert, daß es auf 
einem 80286er - PC sinnlos ist, den DMA-Controller einzusetzen, um 
Daten aus einem IO-Port zu lesen, da die CPU die Stringbefehle 
REP INSB/REP INSW sowie REP OUTSB/REP OUTSW unterstützt, 
die diese Aufgabe genauso schnell erledigen (bzw. schneller, da die 
CPU ab dem 80286 oft schneller getaktet ist, als der veraltete DMA- 
Controller, vergl. Kapitel 3.1). 
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1.3.1 


1 Zentrales: Die CPU 


In diesem Kapitel werde ich die UNIT CPU vorstellen, in der hierfür 
einige Beispiele gegeben werden. Sie enthält Prozeduren und Funk- 
tionen, mit denen der Inhalt größerer Datenbereiche (Strings) vergli- 
chen, bewegt oder durchsucht werden kann. Verfügt man über ei- 
nen 80286 (oder höher), so können auch ganze Speicherblöcke auf 
einmal über einen Port gelesen oder geschrieben werden. 


In Kapitel 14 über die Turbo Vision im Graphikmodus werden 
ebenfalls einige Beispiele dafür gegeben, wie man mit Hilfe von As- 
semblerroutinen Strings (bzw. Bitmaps) schnell bearbeiten kann. 


Die UNIT CPU umfaßt eine Reihe von Assemblerroutinen, die im 
wesentlichen auf der Anwendung der Stringbefehle (MOVS/ STOS/ 
SCAS/ CMPS) basieren. Diesen Befehlen läßt sich ein REP(E/NE)- 
Präfix voranstellen, so daß der Befehl CX-mal wiederholt wird oder 
aber die Abbruchbedingung erfüllt ist. Das Angenehme an den 
Stringbefehlen ist neben der Option des REP-Prefix aber auch, daß 
die Offset-Register stets automatisch ’mitgeführt‘, d.h. entsprechend 
in- bzw. dekrementiert werden. (Allein dadurch sind ja Blocktrans- 
fers überhaupt möglich). 


Als erstes sollen die FILL-Routinen vorgestellt werden, da sie am 
leichtesten zu übersehen sind. 


Speicherbereiche füllen 


Turbo Pascal stellt die Prozedur FillChar zur Verfügung. Die hier 
vorgestellte Version FILLB(Var Buff;Count: Word; What:Byte) arbeitet 
schneller, da sie nicht nur den Befehl STOSB benutzt, sondern den 
Befehl STOSW. Da diese Variante immer ganze Worte abspeichert, 
ist die Routine beim Auffüllen größerer Bereiche praktisch doppelt 
so schnell wie die FillChar-Routine: 


Procedure Fil1B(Var Buff;Count:word;what:byte); external; 


FILLB PROC FAR 
MOV BX,SP { BX als Framepointer benutzen 
CLD { DF=0: Aufwärts füllen 
LES DI,SS: [BX+8] { Adresse von Buff nach ES:DI 
MOV CX,SS:[BX+6] { Count nach (X . 
JCXZ @@EXIT { CX = 0 ? Wenn ja => Exit 
MOV AX,SS:[BX+4] { What => AL 
MOV AH,AL { AH ebenfalls mit 'What' füllen 
SHR CX,1 { CX durch 2, LSB Bit nach CF 
INC @@1 { CF=0 ? Wenn ja, nur Worte füllen 
STOSB 


DEBSZUSS ZUBU ZUBE ZUBE ZUBE TUN ZUBE TU) 
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@e1: REP STOSW { CX Worte füllen } 
@@EXIT: RET 8 { Return & Parameter vom Stack } 
Fil1B ENDP 


In dieser Routine wird BX als ’Framepointer’ benutzt. Dies hat den 
Vorteil, daß BP nicht erst gesichert und restauriert werden muß. 
Diese Technik wird oft eingesetzt, wenn BX nicht anderweitig be- 
nötigt wird. Natürlich kann es auch vorkommen, daß man einen 
Speicherbereich nicht byte-, sondern wortweise (etwa mit einem 
Bitmuster) füllen möchte. In diesem Fall hilft die Prozedur FILLW: 


FillW PROC FAR ; Procedure FillW(Var 
Buff;Count:word;what:Word); 

MOV BX,SP 

CLD 


LES DI,DWORD PTR SS: [BX+8] 
MOV CX,WORD PTR SS: [BX+6] 
JCXZ @@EXIT 
MOV AX,WORD PTR SS: [BX+4] 
CMP TEST8086,2 { Liegt eine 386er CPU vor ? } 
JB Short @@86 
.386 
SHR CX,1 
JNC Short @@1 
STOSW 
@@1: PUSH AX 
PUSH AX 
POP EAX 
REP STOSD 
.8086 
JMP @@EXIT 
@@86: REP STOSW 
@BEXIT: RET 8 
FiTIW ENDP 


In dieser Routine wird kurz angedeutet, wie man mit TASM zwi- 
schen 386er und 8086/80286 umschaltet. Natürlich sind diese Routi- 
nen sehr einfach, aber sie verdeutlichen, wie man mit den Stringbe- 
fehlen des 80x86 umgeht. Insbesondere muß stets festgelegt sein, 
welche Richtung das Directionflag vorgibt, und der Wert in CX muß 
korrekt belegt sein. Natürlich sind diese Routinen dennoch riskant: 
Wenn man sie einsetzt, sollte man sehr genau wissen, wie groß der 
Datenbereich ist, den man füllen will. Ein falscher Einsatz dieser 
Routinen kann böse Folgen haben, wenn etwa nachfolgende Daten 
ungewollt überschrieben werden. 
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1.3.2 


Daten verschieben 


Auch die Move-Prozedur von Pascal läßt sich jedoch durchaus noch 
verbessern, da auch sie lediglich mit dem Befehl MOVSB arbeitet. 
Die hier vorgestellte Version überprüft (genau wie dies die Pascal- 
Version tut), ob die Datenbereiche überlappen. Wenn dies der Fall 
ist und die Datenquelle die niedrigere Adresse hat, muß die Trans- 
ferrichtung umgedreht werden, da sonst Bereiche überschrieben 
werden, bevor sie verschoben werden können. 


_Move PROC FAR ; _Move(var source,dest;count:word); 
mov bx,sp ; BX als Framepointer 
push ds ; DS sichern, da DS:SI später auf S 
; Source 
cld ; zeigen muß. Directionflag löschen. 
cmp Test8086,2 ; Prozessortyp testen und 
pushf ; Ergebnis auf dem Stack sichern 
mov cx,ss:[bx+4] ; Count nach CX 
jcxz @@ende ; CX = 0 ? Wenn ja, dann => Exit 
mov dX,cx 
les di,dword ptr ss:[bx+6] ; Zieladresse laden 
lds si,dword ptr ss:[bx+10] ; Quelladresse laden 
cmp si,di ; Welche Adresse liegt 
ja @@Upper ; höher ? 
add si,cx ; Hier: Abwärtstransport 
add di,cx 
popf ‚ Prozessortyp ? 
jb  @@86low 
.386 ; 386er Befehle zulassen 
std ; Abwärts ! 
and cx,3 ; Alles, was kleiner als ein DWORD ist 
jexz 0@2 ; vorher Byteweise verschieben 
dec si ; Erstes Byte adressieren 
dec di ;‚ dito 
rep movsb 
inc si 
inc di 
002: sub si,4 ; Erstes DWORD adressieren 
sub di,4 ; dito 
mov Ccx,dx ; CX restaurieren 
shr cx,2 ; und durch 4 teilen 
rep movsd ; Doppelworte verschieben 
.8086 ; 386er-Befehle verbieten 
jmp @@ende ; fertig 
@@861ow: std ; 8086: Abwärts. 
shr cx,l 
jnc @@3 
mov al,[si-1] ; Restbyte verschieben 
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mov es:[di-1],al 
883: sub si,2 ; Erstes Wort adressieren 
sub di,2 ; dito 
jmp @e1 
e@upper: popf ; Aufwärts: 386er CPU ? 
jb @@86 
.386 
shr cx,l 
jnc @@5 
movsb 
@e5: shr cx,l 
jnc @@6 
MOVSW 
e@6: rep movsd 
.8086 
jmp @@ende 
@@86: shr cx,l 
jnc @el 
movsb 
@@]: rep MOVSW 
@@ende: pop ds 
RET 10 
_Move ENDP 


Diese Routine hat es schon etwas mehr in sich. Man muß bei der 
Adressierung der bzw. des Restbytes schon einen Moment überle- 
gen, was genau zu tun ist. Die Routine ist zwar etwas umfangrei- 
cher, aber für größere Datenmengen auf einem 8086/286 fast dop- 
pelt so schnell wie ’MOVE’ und auf einem 386 DX oder i486 fast 
viermal so schnell. Es gibt durchaus Aufgaben, für die dieser Zeitun- 
terschied nicht unerheblich ist. 


Aber neben diesen im Prinzip schon vorhandenen Routinen lassen 
sich die Stringbefehle des 80x86 noch anderweitig mit Vorteil ein- 
setzen. 


1.3.3 Daten vergleichen 


Sollen z.B. zwei Datenblöcke verglichen werden, so leisten die 
Stringbefehle ebenfalls gute Dienste. Hierfür existiert die Funktion 
CMPS. Sie ergibt TRUE, wenn die ersten Count Worte in Source und 
Dest gleich sind, sonst FALSE. 


Function COMPS(var Source, Dest; Count:Word):boolean; 
COMPS PROC FAR 
MOV BX,SP ; BX als Framepointer 
CLD ; Aufwärtsrichtung festlegen 
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PUSH DS ; Datensegment sichern 
MOV CX,SS:[BX+4] : Count nach CX 
JCXZ  @@OK 
LES _D1,SS:[BX+6] ; Zieladresse laden 
LDS SI,SS:[BX+10]:; Quelladresse laden 
SHR cx,1 ; Wortweise vergleichen 
INC @@1 
CMPSB 
JNE @@NO ; Erstes Byte verschieden ? 
JCXZ  @@OK ; Nur ein Byte vergleichen ? 
@@1: REPE CMPSW ; CX-mal Wortweise vergleichen 
JNE @aNO ; Verschieden ? 
@@OK: MOV AL,1 ; Datenbereiche sind gleich 
JMP  @@EXIT 
CaNO: XOR AL,AL ; Datenbereiche sind vershieden 
@@EXIT: POP DS ; DS restaurieren 
RET 10 ; Ende und Parameter vom Stack 
COMPS ENDP 
Die Routine ließe sich natürlich auch so schreiben, daß der Index 
des ersten Bytes oder Wortes zurückgegeben wird, das verschieden 
ist. 
1.3.4 Daten durchsuchen 


Bleiben noch die Befehle REPE SCASB/W/D und REPNE 
SCANSB/W/D. Die erste Variante läßt sich dazu verwenden, einen 
unsortierten Datenbereich oder ein Array nach einem bestimmten 
Wert zu durchsuchen, die zweite Variante kann u.a. dazu benutzt 
werden, das Ende eines nullterminierten Strings zu finden. Die Be- 
fehlstypen SCAS/CMPS zusammen lassen sich beispielsweise dazu 
verwenden, eine Zeichenfolge in einem String zu finden. Eine sol- 
che Routine wird auch vorgestellt. Sie unterscheidet sich von der 
Turbo-Pascal-Funktion ’POS’ im wesentlichen dadurch, daß sie ein 
ganzes Segment nach einer Zeichenfolge (also z.B. den Textpuffer 
eines Editors) durchsuchen kann - und nicht nur den 255-Byte- 
Bereich eines Pascalstrings. 


SCANSB PROC FAR 

: Function Scansb(var buff;Count:word;What:Byte):Word; 
CLD 
MOV  BX,SP 


MOV DX,OFFFFH 

LES  DI,DWORD PTR SS: [BX+8] 
MOV  CX,WORD PTR SS: [BX+6] 
JCXZ @BEXIT 
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MOV  AL.BYTE PTR SS: [BX+4] 


REPNE SCASB 
JNE  G@EXIT 
MOV  DX,WORD PTR SS:[BX+6] 
SUB DX,CX 
DEC DX 
@@EXIT: MOV AX,DX 
RET 8 
SCANSB ENDP 
NSCANSB PROC FAR 
; Function NScansb(var buff;Count:word;What:Byte):Word; 
CLD 
MOV  BX,SP 


MOV  DX,OFFFFH 

LES DI,DWORD PTR SS: [BX+8] 
MOV  CX,WORD PTR SS:[BX+6] 

JCXZ- @@EXIT 

MOV  AL.BYTE PTR SS:[BX+4] 


REPE SCASB 
JE G@@EXIT 
MOV  DX,WORD PTR SS:[BX+6] 
SUB DX.CX 
DEC DX 
@@EXIT: MOV  AX,DX 
RET 8 
NSCANSB ENDP 


Die erweiterte ’POS’-Routine: 


S1 enthält den ’Suchstring’ und S2 den zu durchsuchenden Daten- 
bereich. Lenl1 und Len2 sind die Datenbereichlängen in Bytes. 


function SCANSX(var s1,52:;1enl,len2:word):word; assembler; 
asm 
cld { Vorwärts suchen 
push ds { Datensegment sichern 
mov bx,lenl { Leni nach BX 
mov cx,len2  { Len2 nach CX 
sub cx,bx { Zu durchsuchende Länge in S2 
j] @@nothing { Len2<Lenl ? Wenn ja => Nothing 
les di,s2 { ES:DI == Zeiger auf S2 
lds si,sl { DS:SI == Zeiger auf S1 
lodsb { Erstes Byte von S1 laden 
dec bx { Entsprechend BX dekrementieren 
jmp @@start 
@@restart: dec di 
mov  CX,dx 
@@start: jexz @@Compare { Bis zum Ende gesucht ? } 


Ku no no no nn nn 


38 


1.3.5 


1.3.6 


1 Zentrales: Die CPU 


repne scasb { S2 nach erstem Byte durchsuchen } 
jne @@nothing { Erstes Byte nicht gefunden 
=> Nothing } 

@@Compare: mov dx,cx 
{ Vergleich aller weiteren Bytes vorbereiten } 
mov cX,bx 
push si { SI sichern } 
repe cmpsb { Daten vergleichen } 
pop si { SI restaurieren } 


jne @@Restart 


{ Datenbereiche nicht gleich ? => Weiter } 
@@1: mov ax,di { Gefunden ! => Position berechnen ! } 

sub ax,s2.word[0] 

sub ax,bx 

jmp exit 


@@nothing: xor ax,ax { Position = -1, d.h. nichts gefunden } 
@Bexit: sub ax,l 

pop ds 
end; 


Im Gegensatz zur ’Pos’-Routine gibt diese Funktion -1 zurück, wenn 
nichts gefunden wurde und null, wenn der zu suchende String di- 
rekt am Anfang steht. 


Daten durch IO-Ports schleusen 


Wie schon gesagt, lassen sich ab dem 80286 Daten mit den CPU-IO- 
String-Befehlen schneller über Ports einlesen bzw. in Peripheriege- 
räte übertragen, als mit dem DMA-Controller. 


Die UNIT CPU bzw. das Modul CPU.ASM enthalten hierfür die fol- 
genden Routinen bereit: 


procedure _INSB_(var buff;portNo,count:word); 
procedure _INSW_(var buff;portNo,count:word); 


procedure _OUTSB_(var buff;Count,PortNo:word); 
procedure _OUTSW_(var buff;count,‚PortNo:word); 


(Ihre Implementierung ist einfach und bringt nicht viel Neues, so 
daß der Quellcode hier nicht abgedruckt zu werden braucht). 


Weitere Stringroutinen 


Während die im vorhergehenden Abschnitt behandelten Routinen 
mit Strings im Pascal-Sinne nicht unbedingt etwas zu tun hatten, 
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sondern vielmehr mit den 'String’-Befehlen des 80x86, so sollen im 
diesem Abschnitt noch einige Routinen vorgestellt werden, die 
Pascal-Strings bearbeiten. Zunächst zwei Routinen, die ein Upcase/ 
Dncase mit Strings des deutschen Sprachgebrauchs durchführen, 
d.h. auch die Umlaute in ihr jeweiliges Gegenstück verwandeln. Sie 
sind auf der beiliegenden Diskette in der UNIT CODES zu finden. 


procedure UpCaseStr(var s:string): assembler; 


asm 
cld 
les 
mov 
seges 
mov 
xor 
inc 
@@1:seges 
cmp 
Jb 
cmp 
ja 
sub 
Jmp 
@@X: cmp 
jne 
mov 
Jmp 
@@X1:cmp 
jne 
mov 
Jmp 
@@X2:cmp 
jne 
mov 
@@L:stosb 


end; 


procedure 
asm 

cld 
les 
mov 
seges 
mov 
xor 
inc 


{ Vorwärts 
di,s { ES:DI == Zeiger auf S 
si.di {SI=DI 
lodsb { Längenbyte laden.. 
cl,al { .. und nach CX schreiben 
ch,ch 
di 
lodsb { Erstes Zeichen laden 
al,'a' { Zeichen kleiner als 'a': Weiter } 
EaL 
al,'z’ { Zeichen größer als 'z' : Weiter } 
ERX 


al,32 { 20h abziehen: Umwandeln in Großbuchstaben } 


@aL 

al,'ä’' { Umlaute bearbeiten } 
eex1 

al,'Ä' 

@eL 

al,'ü' 

@ex2 

al,'Ü' 

@eL 

al,'ö' 

@eL 

al,'ö' 

{ Modifiziertes Zeichen zurückschreiben 


loop @@1 { Nächstes Zeichen.. } 


DnCaseStr(var s:string); assembler; 


di,s 


si,di 
lodsb 


cl,al 
ch,ch 
di* 


} 
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@@1:seges lodsb 


cm al,'A' 
Jjb EAL 
cm al,'z' 
ja @@X 
add al,32 
jmp GEL 
@eX: cmp al,'Ä' 
jne xl 
mov al,'ä' 
jmp  @@L 
@eXl:cmp al,'Ü' 
jne @&X2 
mov al,'ü' 
jmp GEL 
@@X2:cmp al,'Ö' 
jne el 
mov al,'ö' 
@@L:stosb 
loop @el 
end; 


Ein weiteres Problem, das oft auftritt, ist die Darstellung von Hexa- 
dezimalzahlen. Anhand dieses Problems soll der XLAT-Befehl vor- 
gestellt werden. Die Umwandlung von Zahlen - Bytes, Words, 
Integers u.s.w - in eine Zeichenfolge, die die hexadezimalen Ziffern 
enthält, kann im Gegensatz zu der Umwandlung in eine Dezimal- 
darstellung durch einfaches Übersetzen’ erfolgen, da jede Hexadezi- 
malziffer durch genau ein Nibble dargestellt wird. Ein Nibble sind 
vier Bit, d.h. ein Byte umfaßt genau zwei Nibbles. Die Umwandlung 
geschieht also in zwei Schritten: 


1) Isolation des zu übersetzenden Nibbles in AL 
2) Anwendung des Befehls XLAT, wobei vorausgesetzt wird, daß 


das Registerpaar DS:BX die Adresse einer solchen Datenstruktur 
enthält: 


const Hex:Array[0..15] of Char='0123456789ABCDEF' ; 


Stand vorher in AL eine Null, so wird nach dem XLAT-Befehl dort 
’0’ stehen (d.h. Ascii 48) u.s.w. 


Auf diese Weise wird jede komplizierte und zeitaufwendige Fallun- 
terscheidung vermieden. Auch der umgekehrte Weg - Umwandlung 
eines Hexadezimalstrings in einen numerischen Wert - ist gangbar, 
wenn auch etwas umständlicher. Die UNIT CODES enthält für beide 
Aufgaben die entsprechenden Lösungen bereit, wobei diese so ge- 
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staltet wurden, daß die zentrale Umwandlungsschleife nicht für je- 
den Datentyp neu implementiert werden muß. 

Die Prozedur BuildHexStr z.B. kann alle Datentypen bis ein- 
schließlich 32 Bit Länge in ihr Gegenstück umrechnen, so daß sie 
für die Datentypen Byte/Shortint bis Longint und sogar Pointer ge- 
nutzt werden kann. 


Hilfsprozedur für Hexbyte/Hexword/Hexdword/HexShort/ 
HexInt/HexLong 


mm 


Input: 
{ ES:DI = Zeiger auf @Result 
{ CX  : Anzahl der Nibbles, die auszuwerten sind 
{ DX:AX: Wert, der zu konvertieren ist. 
procedure _Buildhexstr_; near; assembler; 
asm 
std 
add di,cx 
push cx 
lea bx,hex 
mov Si,ax 
@@1: mov ax,si 
and ax,$0F 
xlat 
stosb 
push cx 
mov cx,4 
@@2: shr dx,1 
rer si,l 
loop @@2 
pop cx 
loop @@1 
pop cx 
mov al,cl 
stosb 
end; 


function HexByte(x:Byte):String; assembler; 
asm 

les di,@result 

mov cx,2 

xor dx,dx 

mov al,x 

xor ah,ah 

call _buildhexstr_ 

end; 


function HexWord(x:Word):String; assembler; 
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asm 
les 
mov 
xor 
mov 


call _buildhexstr_ 


end; 


U.S.W. 


di ‚@result 
cx,4 
dx,dx 
ax,x 


1 Zentrales: Die CPU 
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Zentrales: Die FPU 


Die Fließkommaeinheit - auch als Coprozessor bekannt - ist zuneh- 
mend ein normaler Bestandteil des PC. Dies liegt vorwiegend daran, 
daß der i486 in der 'normalen’ - d.h. der DX-Version - standard- 
mäßig bereits eine FPU enthält und die modernen graphischen (d.h. 
rechenintensiven) Anwendungen sich einer immer größeren Be- 
liebtheit erfreuen. 


Aber auch viele Aufgaben, die früher größeren Rechnern - z.B. 
Workstations - vorbehalten waren, werden zunehmend von den 
handlicheren PCs übernommen. Viele Meßplätze in Industrien und 
Universitäten werden inzwischen mit dem PC als universellem 
Rechner zur Meßdatenaufnahme und -auswertung versehen. 


Um die FPU richtig und effektiv nutzen zu können, ist es wichtig, 
sich ein wenig detaillierter mit dieser Einheit auseinanderzusetzen. 
So zeigt sich bereits bei den Standard-Funktionen Sin/Cos/Exp 
u.s.w., daß die direkte Implementierung über BASM-FPU-Befehle 
deutlich schneller abläuft, als die Routinen von Turbo-Pascal. 


Der Aufbau der FPU 


Die Floating-Point-Processing-Unit 80x87 besteht im wesentlichen 
aus acht internen Registern von 80 Bit Breite. Diese Register sind als 
Stack organisiert. D.h., daß das Register ST(0) eine logische Position 
ist und keine physikalische - die oberste Stackposition nämlich. 
Wird ein Wert an diese Position geladen, so steht der Wert, der vor- 
her an dieser Position stand, an der Position ST(1) u.s.w. Versucht 
man mehr als acht Werte in die FPU zu laden, so wird dies einen 
Laufzeitfehler auslösen. Man sollte also komplizierte Formeln lieber 
von vornherein in mehr als einer Zeile programmieren und Zwi- 
schenergebnisse in lokalen Variablen speichern, um das Problem zu 
vermeiden. Da sich die FPU den Besetzungszustand ihrer Stackposi- 
tionen notiert, sollte man bei Funktionen, deren Ergebnis über die 
FPU übergeben wird (also Ergebnistypen Single, Double, Extended 
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und Comp) auch nicht von der "erweiterten Syntax’ Gebrauch ma- 
chen, die es erlaubt, Funktionsergebnisse zu ignorieren und Funk- 
tionen wie Prozeduren aufzurufen, da in diesem Fall der FPU-Stack 
nicht "aufgeräumt wird. Das Ergebnis einer arithmetischen Opera- 
tion wird wie bei der CPU in Zustandsflags festgehalten. Diese Flags 
lassen sich mit der Befehlsfolge FSTSW AX / LAHF (FPU - Status- 
wort in AX speichern / Highbyte der Flags mit AH laden) auf die 
CPU-Flags abbilden, so daß sie zur Auswertung durch bedingte 
Sprünge u.a. wie gehabt zur Verfügung stehen. Außer dem FPU- 
Statuswort existiert noch das FPU-Control-Word, das ähnliche Auf- 
gaben erfüllt wie das Machine-Status-Word beim 80286 (und höher). 


Das FPU-Status-Wort 
Das FPU-Status-Wort hat folgende Belegung: 


Bit 15142321109876543210 
Belegung B C3 [TOP] C2C1CO ES SF PE UE OE ZE DE IE 


Die drei Bits "TOP’ indizieren dasjenige FPU-Datenregister, das gera- 
de die Stackposition Null ST(0) darstellt. 


Die vier Control-Bits C0..C3 entsprechen den CPU-Flagbits und qua- 
lifizieren das Ergebnis der letzten Operation: 


Controlbit CO C1 C2 C3 
Flagbit CF OF PF ZF 


Es fällt natürlich auf, daß es kein Status-Bit gibt, das dem Sign-Flag 
der CPU entspricht. Somit kommen als Verzweigungsbefehle nach 
der Befehlsfolge FSTSW AX / LAHF nur die Befehle JZ/JNZ/JB/JNB 
in Betracht, während die Befehle JG/JNG/JGE/JLE kein sinnvolles 
Ergebnis zur Folge haben. 


Die Ausnahme-Bits IE..PE können direkt eine FPU-Ausnahmebedin- 
gung auslösen, es sei denn, die entsprechende Ausnahmebedingung 
ist durch das FPU-Control-Wort maskiert. Wenn sie nicht maskiert 
sind, so löst der Coprozessor einen Hardware-Interrupt IRQ 0Dh 
(Interrupt-Nummer 75h) aus. Der Turbo-Pascal-Compiler bindet in 
jedes Programm, das die FPU benutzt, eine Interruptroutine für In- 
terrupt 75h ein, die dann den passenden Laufzeitfehler auslöst. Na- 
türlich sind hier auch andere Lösungen als ein Programmabbruch 
denkbar. Wie man eine Fehlerbehandlung aufbauen kann, die sol- 
che und ähnliche Laufzeitfehler abfängt, ist (ein) Thema von Kapitel 
13. Die einzelnen Bits haben folgende Bedeutung: 
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IE: Ungültige Operation (z.B. ungültiges Datenformat geladen) 

DE: Denormalisierter Operand 

ZE: Division durch Null 

OE: Überlauf (Ergebnis übersteigt die Kapazität des 
Datenformats) 

UE: Unterlauf (Ergebnis>0, aber nicht mehr darstellbar) 

PE: Ungenauigkeitsbit (Zeigt an, daß gerundet wurde) 


Das ES-Bit (und beim 487 das B-Bit) zeigen an, ob eines der Bits 
0..5 gesetzt ist (Error Summary Bit), das SF-Bit zeigt einen Stack- 
fehler an. 


Das FPU-Statuswort wird mit O initialisiert. 


Das FPU-Steuer-Wort 


Die FPU verfügt neben dem Statuswort auch über ein Register mit 
einem Steuerwort, mit dessen Hilfe sich das Verhalten der FPU be- 
einflussen läßt. Es hat folgende Belegung: 


Bit 5143210 9876543210 
Bedeutung L[reserviert][ RC JE PC ] [res.] PM UM OM ZM DM IM 
Die unteren Bits 0..5 dienen - wie gesagt - als Maskenbits für die 
entsprechenden Statusbits, die Bits 8 und 9 als Steuerbits für die Ge- 
nauigkeit (Precision Control), die Bits 10 und 11 für die Steuerung 
des Rundungsverhaltens (Rounding Control). Es gilt folgende Bele- 


gung: 


PC Genauigkeit der Mantisse 
0 24 Bits (Single) 

1 reserviert 

2 53 Bits (Double) 

3 64 Bits (Extended) 


RC Rundungsverhalten 

0 Runden auf nächsten oder geraden Wert 
1 Runden abwärts 

2 Runden aufwärts 

3 Runden in Richtung Null 
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Daneben existiert noch das sogenannte "TAG-Word’. Es enthält In- 
formationen darüber, welche FPU-Datenregister frei oder belegt 
sind. Für jedes Datenregister sind 2 Bits reserviert (für das nullte die 
Bits O und 1, für das siebte die Bits 14 und 15), deren Belegung fol- 
gende Bedeutung hat: 

0: Register normal belegt 

1: Register mit dem Wert Null belegt 

2: Register mit besonderem Wert belegt (NaN) 

3: Register frei. 

Das FPU-Steuerwort wird durch FINIT mit dem Wert 037Fh belegt. 
Diese Informationen werden im Normalfall vom Turbo-Pascal-Pro- 
grammierer nicht unbedingt benötigt, da die Initialisierung der FPU 
von der UNIT SYSTEM vorgenommen wird. Nur im Ausnahmefall 
wird man sich also mit Details der FPU-Register befassen müssen. 
Eines tut der Turbo - Pascal - Compiler allerdings nicht: Er sorgt 
nicht für den ’optimalen’ Code und ignoriert die Möglichkeit der Pa- 
rallelarbeit von CPU und FPU vollständig. Wer also optimierte Rou- 
tinen schreiben möchte, dem stehen alle Möglichkeiten des einge- 
bauten Assemblers BASM zur Verfügung. Es sei allerdings ange- 
merkt, daß BASM die 80387-er Befehle (wie ja auch die 80386er - 
Befehle) nicht akzeptiert. Wer also auf FSIN/FCOS/FSINCOS nicht 
verzichten möchte, muß sich mit den Maschinenbefehlen oder mit 
eingebundenen TASM - Routinen behelfen. Allerdings kann man 
auch hier nicht unbedingt von einer Parallelarbeit sprechen, da so- 
wohl BASM als auch TASM jeden FPU-Befehl durch ein FWAIT 
(9Bh) abschließen, so daß die CPU stets untätig bleibt, bis die FPU 
einen Befehl ausgeführt hat. 


Die FPU-Befehle 


Es gelten folgende Bezeichnungen: 

m32real: 32-Bit-Gleitkommaformat (SINGLE) 
m64real : 64-Bit-Gleitkommaformat (DOUBLE) 
m80real : 80-Bit-Gleitkommaformat (EXTENDED) 
mi6int : 16-Bit-Integer (INTEGER) 

m32int: 32-Bit-Integer (LONGINT) 

m64int: 64-Bit-Integer (COMP) 

m80dec : 80-Bit-BCD-Darstellung (kein Pascal-Typ) 
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2.2.1 


Tabelle 2.1: 


Die FPU- 
Arithmetik- 
Befehle 


Grundsätzlich besteht ein FPU-Befehl aus zwei Bytes mit folgendem 
Format: 


B S 
Bit 7654 
1101 


Das heißt, das erste Befehlsbyte umfaßt die Werte D8h..DFh. Wenn 
der FPU-Befehl auf eine FPU-Stackposition zugreift, so ist MOD = 
11b, und die drei Bit von R/M bezeichnen die Stackposition (0..7). 
Bei Befehlen, die nicht auf den FPU-Stack zugreifen (und auch 
nicht auf den Speicher), ist MOD = 11b, und die R/M-Bits stehen 
zusätzlich zur Befehlscodierung zur Verfügung. 


Bei Befehlen, die sowohl einen Speicher- als auch einen FPU-Stack- 
Operanden haben können, dienen die MOD-Bits zur Auswahl der 
Adressierung, d.h. MOD = 11b adressiert den FPU-Stack, MOD = 
00b .. 10b adressiert den Speicher. 


Die Arithmetik-Befehle der FPU 


Die Arithmetik-Befehle sind sehr systematisch codiert, weshalb sie 
hier als erste vorgestellt werden. Ist der Wert von TIT = XX0, so 
handelt es sich um einen arithmetischen FPU-Befehl. Die oberen 
beiden Bits von TTT dienen dann der Auswahl der Operanden, 
während LLL die Operation festlegt. 


In der Reihenfolge der Operanden entsprechen diese Befehle aller- 
dings zum Teil nicht den üblichen Intelkonventionen. 


han [Operation _ Tneschreibung |] 
(00 |rappymao addieren mi neavimeger | 


101 | FSUBR/FISUBR | Invers Subtrahieren: Von Real/Integer 
abziehen 


FDIV/FIDIV Durch Real/Integer dividieren 
FDIVR/FIDIVR |Invers durch Real/Integer dividieren 
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Die Arithmetik- x Operanden/Adressant Operanden/Adressant 
De | [mon = oob..10b MOD = 11b 
00 |st,m32real/sT ST,ST@/ST 
10 |ST,m64real/ST ST,STO/STO 
ST,m16int/ST ST,STW/ST@) + POP 
Beipelefürde [Assemblermemnonik |rrr Jr [monoperation | 
Beispiele für die Assemblermemnonik |TTT Operation 
EN FSUB ST,ST@) 1000 Jı00 Jıı |st=st-sr@ 
FSUB STG),ST ST@:= ST@) - ST 
FSUBR ST,STG) 1000 Jıoı Jıı |st=sı@-sr 
FSUBR STG),ST STO:= ST - ST® 
Das Ungewöhnliche ist beim Code XX=10b und FPU-Stack-Operan- 
den, daß der Adressant dem zweiten Operanden entspricht. Das ist 
etwas gewöhnungsbedürftig, da die Intel-Konvention, an die sich 
auch jeder 80x86-Assembler hält, immer das Ziel zuerst nennt. Bei 
der Programmierung spielt diese Tatsache allerdings nur dann eine 
Rolle, wenn direkter Maschinencode benutzt werden soll (wie etwa 
bei inline-Anweisungen). 
2.2.2 Lade und Transportbefehle 


Bei den Lade- und Transportbefehlen gilt eine ebenso einfache 
Systematik wie bei den arithmetischen Befehlen. Dabei legt der 
Wert von TTT den Typ des Operanden fest, der Wert von LLL die 
Operation. Dabei ist zu beachten, daß intern alle Operanden grund- 
sätzlich 80-Bit-Fließkommazahlen (Extended) darstellen. Eine Spei- 
cheroperation impliziert somit unter Umständen je nach gewähltem 
Operandentyp eine Rundung auf ein Format geringerer Genauigkeit 
bzw. auf einen ganzzahligen Wert bei dem Befehl FIST/FISTP. 


TTT Operandentyp 
001 m32real 

011 m32int 

101 m64real 


111 mi16int 
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Tabelle 2.4: 
Die FPU-Lade- 
und Transport- 
befehle 


LLL Operation 


000 Laden 
010 Speichern 
011 Speichern+Pop 


Wird ein Wert geladen, so steht er stets an der obersten Stack-Po- 
sition ST(0). Alle anderen Werte, die bereits in die FPU geladen 
wurden, werden somit in ihrer Stackposition verschoben. Das Ab- 
speichern eines Wertes bedingt indes nicht zugleich die Freigabe 
der entsprechenden Stackposition. Die Freigabe muß explizit mit 
dem Befehl FSTP/FISTP erfolgen. 


Daneben existiert allerdings noch die Möglichkeit, eine Stackposi- 
tion ohne Abspeichern des Operanden freizugeben. Der Befehl lau- 
tet FFREE ST). Dabei sollte man beachten, daß durch Anwendung 
dieses Befehls im Stack ’Löcher’ entstehen können. FFREE ST(0) be- 
wirkt, daß die oberste Stackposition freigegeben wird, nicht jedoch 
die Inkrementierung des Stackpointers wie bei einem POP-Befehl. 


Zu den FST-Befehlen sei noch angemerkt, daß das Abspeichern von 
Werten in andere Stackpositionen die dort stehenden Werte über- 
schreibt. Ein Abspeichern in eine noch nicht belegte Stackposition 
ist nicht möglich. 


Ähnlich wie die CPU ist die FPU in der Lage, Registerwerte direkt 
mit Speicherwerten zu verknüpfen - jedoch nicht jedes Format. Das 
Format ’Extended’ kann z.B. erst verarbeitet werden, wenn es in 
eine Stackposition geladen wurde. Dies verlangsamt nicht nur die 
Verarbeitung, sondern bedeutet auch mehr Code. Wenn man in Be- 
zug auf die Rechengenauigkeit mit dem Format Double auskommen 
kann, sollte man deshalb den Gebrauch des Formats ’Extended’ 
vermeiden. 


FLD m32real 
FST m32real 
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Tabelle 2.5: 
Weitere FPU- 
Lade- und 
Transport- 
befehle 
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Fortsetzung Tabelle 2.4: 


FILD m16int 


DFh,ModRM/3 


DBh,ModRM/O 


FIST ml6int 
FISTP ml6int 


Too | 
| 
man Jon oo | 

Dan ntoaR0n> 

Din MoaRıwG 


Abgesehen von den Befehlen, die auf den Speicher zugreifen, ste- 
hen noch eine Reihe von Befehlen zum Laden präziser Festwerte 
zur Verfügung sowie zum Austausch von Registerinhalten. 


Die Tabelle 2.5 führt neben diesen noch andere Befehle mit dem 
Opcode D9h (TTT = 001) auf. Dies sind vor allem Befehle, die we- 
der arithmetisch noch transzendent sind und auch mit der FPU- 
Steuerung in keinem direkten Zusammenhang stehen, z.B. FCHS 
(Vorzeichen von ST(0) wechseln), FIST (ST(0) mit Null verglei- 
chen), FABS (ST => ABS(ST)). 

Man beachte, daß neben FTST auch der Befehl FXAM zur Verfü- 
gung steht, der es erlaubt, einen Operanden daraufhin zu unter- 
suchen, ob er z.B. ’NaN’ (Not a Number) entspricht oder sonst ir- 
gendwie denormal ist. 


FCHS 


FTST 
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2.2.3 


Fortsetzung Tabelle 2.5: 


Foldende Werte werden geladen: 


FLDL2T Logarithmus zur Basis 2 von 10 
FLDL2E Logarithmus zur Basis 2 von e 
FLDLG2 Logarithmus zur Basis 10 von 2 
FLDLN2 Natürlicher Logarithmus von 2 


Diese verschiedenen Festwerte sind nützlich, wenn man Logarith- 
men und Exponenten zu den Basen 2, e und 10 ineinander umrech- 
nen möchte. Daß die Festwerte 0, 1 und Pi häufig benötigt werden, 
versteht sich wahrscheinlich von selbst. 


Neben Pi werden häufig noch die Werte 2*Pi, Pi/2 und Pi/4 
benötigt. Diese erzeugt man sich sehr ökonomisch über den Befehl 
FSCALE, der allein den Exponenten verändert. Ebenso kann man 
bei den in der Mathematik häufig auftretenden Potenzen von zwei 
vorgehen, da der Befehl FSCALE sowohl schneller als auch frei von 
Rundungsfehlern abläuft. Er entspricht im Ergebnis den CPU-Befeh- 
len shr/shl, weshalb es ein wenig ärgerlich ist, daß diese Befehle in 
der Pascal-Syntax nicht auch auf Gleitkommazahlen anwendbar 
sind. 


Erweiterte Befehle (Tranzendente Funktionen u.a.) 

Bei den transzendenten Funktionen gibt es einige Besonderheiten, 
die zu beachten sind. So muß der Operand für den Befehl F2XM1 
beispielsweise im Bereich [O..In(2)[ liegen, damit das Ergebnis defi- 
niert ist. 
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Tabelle 2.6: 
Die transzen- 
denten FPU- 
Befehle 


Der Befehl FPTAN hingegen berechnet nicht nur den Tangens des 
Operanden, sondern lädt zugleich eine 1.0 an die Stackposition 
STD u.s.w. 


[Befehl Irrrfsr]mon Irm [opooe 
rm  ___ Jooı [izo|ıı [ooo |nsnron 
(ST@:= ST(0) * Lna(CST(1)) + POP ) 

110 
(STCD:= Arctan(ST(1) / ST(O)) + POP ) 

(ST:=Mantisse(ST) , d.h. [1..2] für positive Zahlen) 
(STCd:= Exponent(ST)) 

(wie FPREM, aber nach IEEE-Norm) 

rereM ___Joo1 Jun Jıı Jooo Iosnren 1 
(STCD:= ST(0) * LnzST)+1) + POP ) 

001 Jaıı 010 |Doh,FAh 
1 o11_|Dsh,FBh 
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Tabelle 2.7: 
Die FPU- 
Steuerbefehle 


Tabelle 2.6 gibt einen Überblick über die transzendenten und ande- 
re nichtarithmetische Funktionen der FPU. 


Die Befehle FSIN/FCOS/FSINCOS sind erst ab dem 80387 definiert. 
Bis zum 80287 ist es somit erforderlich, den Sinus mit Hilfe des Be- 
fehls FPTAN (oder über eine Potenzreihe) zu berechnen. Die UNIT 
FPU implementiert eine Sinus-Funktion. Hierfür ist es geschickt, das 
Argument des Tangens zwischen 0 und pi/4 zu halten, da der Wert 
des Tangens in der Nähe von pi/2 divergiert: 


SINCX) = 2 TAN(X/2) / (1+TANEX/2)). 


Wobei der Wert von X bereits auf den Bereich von [0..pi/2] normiert 
sein muß. 


Neben den nichtarithmetischen und transzendenten Funktionen ver- 
fügt die FPU noch über eine Reihe von Steuerbefehlen. Diese exis- 
tieren zumeist in zwei Versionen’ - mit und ohne Prüfung auf Aus- 
nahmebedingungen. Die Version mit Prüfung wird schlicht durch 
ein FWAIT eingeleitet. Soll keine Prüfung erfolgen, so muß deshalb 
explizit der Befehl ohne Prüfung assembliert werden. Tabelle 2.7 
bietet eine Übersicht über die FPU-Steuerbefehle. 


Die FPU-Umgebung besteht für ein 16-Bit-Codesegment aus einem 
Record von 14 Byte Umfang, dessen Aufbau Tabelle 2.8 zeigt. 


Der FPU-(Gesamt-)Zustand umfaßt weitere 80 Byte mit den FPU- 
Datenregistern in der Reihenfolge der Stackpositionen, so daß der 
FPU-Zustand 96 Byte umfaßt. Bei einem 80387/i1486DX und einem 
32-Bit-Segment umfaßt die FPU-Umgebung 28 Byte (jede Position 
wird durch 32 Bit dargestellt) und der Zustand dadurch 108 Byte. 


FSTCW 9Bh,D9h, FPU-Control-Wort speichern + 
ModRM/7 Prüfung 


FNSTCW D9h,ModRm/7 FPU-Control-Wort speichern 


FSTSW OBh,DFh, FPU-Status-Wort speichern + 
ModRM/7 Prüfung 
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Fortsetzung Tabelle 2.7: 


FNSTSW DFh,ModRM/7 FPU-Status-Wort speichern 


FFREE STG) | DDh/COhti 


Der Anwender wird die Befehle zum Sichern und Laden der FPU- 
Umgebung bzw. des FPU-Gesamtzustandes jedoch selten benutzen. 


Sie sind vor allem für ein Multitasking-Betriebssystem wichtig, da 
bei einer Taskumschaltung neben dem CPU-Zustand natürlich auch 
der FPU-Zustand für eine Task gesichert werden muß. Ein ähnliches 
Problem ergibt sich bei der Anwendung von FPU-Befehlen in 
Interrupt-Handlern. Wenn man nicht sicher sein kann, daß das 
unterbrochene Programm die FPU gerade nicht nutzt, so ist es 
notwendig, den FPU-Zustand (wie ja auch die CPU-Register) vor 
etwaiger Nutzung der FPU zu sichern und hernach zu restaurieren. 
Da dies relativ zeitaufwendig ist, sollte man wenn möglich von 
einer Nutzung der FPU in Interrupthandlern absehen. 
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Iaete2e (oasc Tabs |] 
FPlinge- [0 [FPu-Steuerwort (Controlwor)DODWT | 
en 
4 
re 
Bean 2 
Offset des aktuellen Speicher-Operanden 


Segment (oder Selektor) des aktuellen Speicher- 
Operanden 


2.3 Die UNIT FPU 


Einleitung 

Nicht allein, um die Arbeitsweise der FPU-Befehle an Beispielen zu 
belegen, sondern auch deshalb, weil sie (bei vorhandener FPU) 3..5 
mal schneller (!) als die entsprechenden Turbo-Pascal-Routinen 
sind, werde ich im folgenden die UNIT FPU vorstellen, in der die 
grundlegenden transzendenten Funktionen implementiert sind. Wer 
Fließkommaarithmetik in seinen Programmen intensiver nutzt, sollte 
sich in jedem Fall mit der Assembler-Programmierung der FPU 
vertraut machen, da sich damit gerade auf 80386/387 und i486-er 
Rechnern ganz erhebliche Leistungssteigerungen gegenüber der 
Pascal-Implementierung erzielen lassen. Es ist (leider) eben nicht 
nur wichtig, ’gute’ Algorithmen zu verwenden, sondern ebenso, 
diese Algorithmen auf rationelle Art zu implementieren. Ein Ge- 
schwindigkeitsvorteil von 3..5 entspricht einer Taktsteigerung von 
16 auf 48..80 Mhz ! 

Die Unit FPU basiert auf einer Reihe von Prozeduren, die aus Grün- 
den der Geschwindigkeit als NEAR deklariert sind. Diesen Routinen 
werden die Parameter in den ersten Stackpositionen übergeben, 
und sie liefern ihr Ergebnis auch in diesen ab. Die ’offiziellen’ Funk- 
tionen, die im Interfaceteil der UNIT FPU auftauchen, tun selbst 
nichts weiter, als die Parameter in den FPU-Stack zu laden und die 
eigentlichen Rechen-Routinen aufzurufen. Das Ergebnis einer Fließ- 
kommafunktion wird in den FPU-Registern übergeben, so daß das 
Ergebnis bereits an der richtigen Stelle steht, wenn die Funktionen 
in BASM geschrieben werden. 
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Die Standardfunktionen 


Die Standardfunktionen Sin, Cos, Exp, Ln (sowie Log=Logarithmus 
zur Basis 10 und Ld=Logarithmus zur Basis 2) sind in einem Assem- 
bler-Modul implementiert, da dies zum einen die Möglichkeit zur 
Nutzung der Befehle des 80387 eröffnet und zum anderen die loka- 
le Abschaltung des Emulators ermöglicht. Die Funktionen liegen 
auch zum Teil ineinander’, eine Technik, die ebenfalls mit BASM 
schwer zu realisieren ist. Die Datei heißt FPU.ASM. 


Bei der Berechnung des Cosinus wird die Tatsache ausgenutzt, daß 
gilt COS) = SINKX+PI/2). Der Sinus wird beim 80387 / i486DX mit 
dem Befehl FSIN berechnet und beim 8087/80287 über die Formel 
SINCX) = 2 * TAN(X/2) / (1 + TAN2@X/2)), wobei der Operand vor- 
her auf den Wertebereich von 0..Pi/2 normalisiert wird. Auf diese 
Weise liegt das Argument des Tangens ausschließlich im ’harmlosen’ 
Bereich von 0..PI/4. 


NOEMUL 

FRCos proc near 
cmp Test8087,0 
jne short @&2 


INT 3EH 
DW scCos ; Emulatoraufruf, falls keine FPU vorhanden 
RET 

@@2: 


fld  __pi_2 : globale Konstante der UNIT FPU = Pi/2 
faddp st(1),st 
jmp  @iX 
FRSin proc near 
cmp test8087,0 
jne short @1X 


INT 3EH 
DW scSin 
RET 

@alXx: 


cmp test8087,3 
Jjb short @@287 


.386 
.387 
fsin ; 387 vorhanden: FSIN nutzen 
ret 
.8086 
.8087 
@@287: ; 8087 oder 80287: 
fld pi2 : _pi2=2*pi 


fxch st(l) : ST=X, ST) = PI 
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ftst 
fstsw 
mov 
sahf 
pushf 
jns 
fchs 
@@1: 
fprem 
fxch 
ffree 
fincstp 
fldpi 
fcomp 
fstsw 
mov 
sahf 
pushf 
ja 
fldpi 
fsubp 
@@2: 
fld 
fcomp 
fstsw 
mov 
sahf 
ja 
fldpi 
fsubrp 
003: 
fldi 
fchs 
fxch 
fscale 


fstp 
fptan 
fld 
fmul 
faddp 
fdivp 
fldi 
fxch 
fscale 
fstp 
popf 


tempword 
ax, tempword 


short @@1 


st(1) 
st 


st(1) 
TempWord 
ax, Tempword 
short @@2 
st(1).st 
pl 
st(1) 
TempWord 
ax, tempword 


short @@3 


st(1),st 


st(1) 


st(1) 
st(2) 
st,st 
st(1),st 
st(1),st 
st(1) 


st(1) 


ST 
ı ST=X 
:X > PV/2 (?) => SIN(X) = SIN(PI-X) 
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:X%X<0 => SIND = - SINC-X) 


: St:= X Mod (2*pi) 


: ST = PL, STOL)=X 
:X>PI (2) => SINCX) = - SINCX-PD) 


Pl/2, ST) =X 


; ST=X,STN)=-1 

; ST = X/2, für die Formel: 

: SIN(X) = 2 * TAN(X/2) / (1 + TAN2(X/2)) 

; Das Argument liegt immer zwischen 0 und pi/4 
; ST=W2 

‚ ST =1, ST(1) = TAN(X/2) 


= TAN(X/2) „ ST =1 , ST(2) = TAN(X/2) 
= TAN?2(X/2), ST(1) = 1, ST(2) = TAN(X/2) 


wu 
4-4 
[u 


i ST = TAN?(X/2) + 1, STC1) = TAN(X/2) 
; ST = TAN(X/2) / C1+TAN2(X/2)) 


; ST = 2 * TAN(X/2) / C1+TAN?(X/2)) ,„ ST) = 1 
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ja short @@20 
fchs 

@@20: 
popf 
ins short @@10 
fchs 

@@10: 
ret 

FRSin endp 

FRCos endp 


Die Datei FPU.ASM enthält daneben auch eine Routine, die auf 87 / 
287er Coprozessoren zugleich Sinus und Cosinus berechnet, was 
zusammen sehr viel schneller geht als nacheinander, da für den Co- 
sinus gilt: 

Cos(X) = (1 - Tan2Q/1 + Tan2X)) 

Der Arcustangens existiert als direkte FPU-Funktion: 


FRArctan proc near 
cmp test8087,0 
jne @@1 
INT 3EH 
DW  scArcTan 
RET 

@@1:fldi 
fpatan 
RET 

FRArctan endp 


Die Funktion Exp(x) wird über den FPU-Befehl F2XM1 berechnet. 
Da dieser Befehl jedoch ein Argument zwischen Null und LnO) er- 
wartet, muß das Argument vorher in einen gebrochenen und einen 
geraden Anteil zerlegt werden: 


F2XMLOO) = 2X - 1 E 
Exp(x) = 2Trunc(X * Ldle)) x (FXMLCFract X * Ldte) )) + 1) 


FREXxp proc near 
cmp test8087,0 
jne short @@1 


INT 3EH 
DW scExp 
RET 

@@1: 
fldl2e 


fmulp st(1),st 
fld st 
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frndint 
fsub st(),st 
fxch st(l) 
f2xml 
fldi 
faddp st(1),st 
fscale 
fstp st(l) 
ret 

FRExp endp 


Die verschiedenen Logarithmen lassen sich praktisch alle mit der 
gleichen Funktion berechnen, wenn eine FPU vorhanden ist. 


; Logarithmen zu verschiedener Basis: 


FRLog proc near ; LOG = Basis 10 
cmp Test8087,0 
jne short @@1 
INT 3EH 
DW scLogl10 
RET 
@@1: 
FldLg2 
jmp @Ln 
FRLd proc near ; LD = Basis 2 
cmp Test8087,0 
jne short @@2 
INT 3EH 
DW scLog2 
RET 
882: 
fldi 
jmp en 
FRLn proc near ; LN = Basis e 


cmp Test8087,0 
jne short @@3 
INT 3EH 
DW scLog 
RET 

083: 
fldin2 

@Ln: 
fxch st(l) 
fyl2x 
ret 

FRLn endp 

FRLd endp 

FRlog endp 
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Das liegt daran, daß Ln(X) zur Basis B gleich dem Logarithmus zur 
Basis zwei von X (Ld@O) multipliziert mit dem Logarithmus zur 
Basis B von zwei. Da der Befehl FYL2X sowieso schon die Multipli- 
kation mit einem Faktor Y in ST(0) impliziert, so muß der entspre- 
chende Faktor nur in ST(0) stehen: 
2 ST = Logarithmus zur Basis B von 2 
2) STD) =X 
3) FYL2X aufrufen 

2.3.2 Weitere transzendente Funktionen 


Neben diesen bereits von Turbo Pascal angebotenen Funktionen 
sind in der UNIT FPU noch eine Reihe weiterer reeller Funktionen 
realisiert: 


a) TAN, COT 

b) ARCSIN, ARCCOS,ARCCOT 

c) SINH, COSH, TANH, COTH 

d) ARSINH, ARCOSH, ARTANH, ARCOTH 

e) Y_POW&y) =xY 

D_ N_POW@) = xN 

9) NüberK 

h) Scale(k) = 2K 

D XScale&x,k) =xX * 2K 

Die Funktion XScale ist vor allem deshalb von Interesse, weil bei 
vielen Berechnungen ein Wert durch Potenzen von 2 geteilt werden 
bzw. mit solchen multipliziert werden muß. Da dies im Binärsystem 
einer bloßen Änderung des Exponenten entspricht, ist es rationeller, 
hierfür den FPU-Befehl FSCALE zu nutzen. 

Die Funktion XN arbeitet mit einer direkten Potenzierung des Argu- 
ments (ohne Umweg über EXP(N * LN@QO) ) und basiert auf der 
Überlegung, daß XN = SORCxN DIV 2) «xN MOD 2 ;st. Für höhere 
Exponenten ist dieser Algorithmus bedeutend schneller als die N- 
malige Multiplikation von X mit sich selbst, da die Rechenzeit prak- 
tisch mit LN(N) wächst, statt mit N. Nebenbei wurde der Algorith- 
mus nicht rekursiv, sondern in einer Schleife implementiert, was in 
praktisch jedem Fall günstiger (und schneller) ist, da erstens der 
Stack nicht so leicht überläuft und zweitens die Zeit für den CALL 
und die Übergabe der Argumente entfällt. 
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2.4 


Function N_POW(x:float:N:word): float; assembler; 


asm 
mov ax,n 
fld x 
fldi 
xor cx,cX ;CX = Zähler 
@@1: shr ax,1 
pushf 
rc] cx,l 
popf 
jnz @@1 
@@2: fmul st,st 
shr cx,1 
jnc @@3 


fmul st,st(l) 
@83: jcxz @@4 
jmp 082 
@84: fstp st(1) 
end; 


Das Program FPUDEMO.PAS, das die Zeitmessung der UNIT TIMER 
mitnutzt, demonstriert den Zeitbedarf der verschiedenen Funktionen 
der UNIT FPU im Vergleich zu denen der UNIT SYSTEM. 


Der Borland-80x87-Emulator 


Turbo Pascal (incl. Borland Pascal) stellt einen Gleitkommaemulator 
zur Verfügung, der die FPU-Befehle auch dann zur Ausführung 
bringt, wenn ein Coprozessor nicht installiert ist. Das Konzept ist 
folgendes: Der Compiler fügt in ein Programm, das den Emulator 
nutzen soll, nicht die eigentlichen FPU-Maschinenbefehle ein, son- 
dern modifizierte Befehle. Die FPU-Befehle hatten die Form 
D8h..DFh/MOD_RM; die entsprechenden Emulatorbefehle lauten 
CDbh/(D8h..DFh)-A4h/MOD_RM (wobei die Aufrufe mit Segmentvor- 
gabe gesondert betrachtet werden). 

Die Emulatoraufrufe umfassen also ein Byte mehr als die entspre- 
chenden FPU-Opcodes und zwar einen Interruptaufruf. Die Inter- 
rupt-Nummer ist das FPU-Befehlsbyte abzüglich A4h, so daß die 
Emulator-Interrupts die Nummern 34h..3Bh belegen. Tatsächlich 
sind auch die Interruptnummemn 3Ch..3Eh für den Emulator reserviert. 
Interrupt 3Ch wird für die Emulation von FPU-Befehlen genutzt, die 
eine Segmentvorgabe enthalten. Die Syntax des Emulators ist in die- 
sem Fall etwas anders: 
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Das Prefix-Byte der Segmentvorgabe wird vom Compiler durch den 
Interrupt-Aufruf CDh 3Ch ersetzt. Das erste Byte des FPU-Opcode 
wird nun entsprechend der Segmentvorgabe modifiziert, in dem 
folgende Werte abgezogen werden: 


Segmentvorgabe Wert 


ES 0 

cs 40h 
ss 80h 
DS COh 


Da die FPU-Opcodes stets zwischen D8h und DFh liegen, befinden 
sich die modifizierten Opcodes bei DXh, 9Xh, 5Xh und 1Xh. 


Der Emulator-Interrupt 3Dh dient ausschließlich dem Befehl FWAIT, 
der Interrupt 3Eh dient der Bearbeitung der Standard-Pascal-Funk- 
tionen Sin,Cos,Exp u.S.w. 


Ist ein Coprozessor nicht installiert, so wird die Interruptroutine die 
Funktionen desselben emulieren. Verfügt das System hingegen über 
einen Coprozessor, kann die Interruptroutine anhand der Rück- 
sprungadresse auf dem Stack die Stelle im Code-Segment ermitteln, 
von der der Aufruf ausging, den Emulatoraufruf durch den eigentli- 
chen FPU-Befehl ersetzen und alle überschüssigen Code-Bytes 
durch NOPs (90h) auffüllen. Danach wird die Rücksprungadresse 
um eins dekrementiert. Nach einem IRET landet die CPU direkt am 
FPU-Befehl. Jede nachfolgende Ausführung des gleichen Code- 
Fragments wird somit keinen Interrupt mehr auslösen, da der Code 
modifiziert wurde. Auf diese Weise verabschiedet sich der Emulator 
bei vorhandener FPU von selbst. Die Interruptroutinen werden also 
im Modus E+ stets in die EXE-DATEI aufgenommen und vor dem 
eigentlichen Programmstart installiert. Der Umfang eines Programms 
mit Emulator ist deshalb entsprechend höher. 


Der einzige Haken an dem Konzept ist, daß die Routinen bei vor- 
handener FPU erst beim zweiten Durchlauf ’schnell’ sind. Handelt 
es sich aber um eine DLL, ein Overlay-Segment oder um ein ver- 
werfbares Protected-Mode-Segment, so kann dieses ’erste' Mal zur 
Laufzeit eines Programms durchaus öfter vorkommen, nämlich je- 
desmal, wenn der entsprechende Code neu von der Platte geladen 
wird. Aus der Sicht des Compiler-Bauers ist dieses Konzept sicher- 
lich das einfachste, obwohl durchaus andere Methoden denkbar 
sind, die die erwähnten Nachteile evtl. vermeiden würden. 
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Die interne Peripherie 


3.1 


In diesem Kapitel sollen einige Bausteine besprochen werden, die 
zwar zur 'Peripherie’ gezählt werden, aber keine Funktion als Ein-/ 
Ausgabegeräte erfüllen. Zur eigentlichen Peripherie gehören meines 
Erachtens Tastatur, Bildschirm, Maus, Festplatten etc., während die 
Bausteine DMA-Controller, Interruptcontroller, Timer etc. speziellen 
internen Zwecken dienen, die nicht von der CPU übernommen 
werden (können). 

Ich werde auch nur eine Auswahl der Hardwarebausteine, die die 
CPU unterstützen, besprechen. Der DMA-Controller wird eigentlich 
nur erwähnt, um betonen zu können, daß es besser ist, ihn mög- 
lichst schnell wieder zu vergessen. Mir ist keine Anwendung be- 
kannt, die auf dem PC/AT den DMA-Controller sinnvoll einsetzen 
könnte, da jeder Datentransfer von und zu I/O-Geräten mit den 
CPU-String-Befehlen (vergl. Kapitel 1.3.5) besser und schneller zu 
erledigen ist. Eine Programmierung des Interrupt-Controllers wird 
wohl auch nur in Ausnahmefällen nötig sein. Sehr interessant hinge- 
gen kann es sein, den Timer (und/oder) den Lautsprecher zu pro- 
grammieren, sei es, um Zeitintervalle mit hoher Präzision zu mes- 
sen, oder um in differenzierter Weise Töne zu erzeugen. 


Der DMA-Controller 


Der DMA (Direct Memory Access) - Controller - Baustein 8237A er- 
füllt im wesentlichen zwei Aufgaben. Die erste ist ein zyklischer Re- 
fresh des dynamischen RAM-Speichers (nur XT), d.h., ein Daten- 
transfer von dem Speicher in den Speicher, der periodisch durch 
den Timer-Kanal 1 aktiviert wird, das Zweite ist der schnelle Daten- 
transfer zwischen RAM-Speicher und Peripheriegeräten wie Hard- 
disk oder Floppylaufwerk. Während eines DMA-Datentransfers ist 
die CPU inaktiv. Daher ist die Programmierung des DMA etwas ris- 
kant, da sich die CPU bei einer Fehlprogrammierung eventuell dau- 
erhaft verabschiedet. Meistens bedeutet die fehlerhafte Ansteuerung 
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eines DMA-Kanals den Absturz des Systems. Es sei auch explizit ge- 
sagt, daß die Transfergeschwindigkeit zwar beim XT durch den 
DMA erheblich gesteigert werden kann, ab dem AT/286 jedoch 
nicht unbedingt. Dies liegt zum einen daran, daß der etwas veralte- 
te Baustein mit einem Takt von maximal 8 MHz betrieben wird, 
während bereits der 80286 mit bis zu 25 MHz getaktet ist und zum 
zweiten daran, daß ab dem 80286 die Befehle (REP) INS/OUTS zur 
Verfügung stehen, so daß der schnelle Datentransfer von und zu 
Peripheriegeräten, der ja über I/O-Ports erfolgt, von der CPU genau- 
so schnell (oder schneller) und bei weitem risikoloser (sprich mit 
weniger Hardwareprogrammierung) erfolgen kann (vergl. Kapitel 
1.3.5). 

Dennoch soll hier eine kurze Übersicht über die Register und Ports 
des DMA-Controllers gegeben werden mit der ausdrücklichen Em- 
pfehlung, eine Programmierung - so vermeidbar - zu unterlassen. 
Nur beim XT macht die Programmierung der DMA-Kanäle wirklich 
Sinn. 

Der XT (8086) verfügt über einen, der AT über zwei DMA-Bausteine 
mit jeweils vier Transferkanälen. Die Portadressen des 1. DMA-Con- 
trollers (DMA-Kanäle 0..3) liegen bei 000H-01FH, die des zweiten 
bei 0COH..ODFH (DMA-Kanäle 4..7). 


Die DMA-Kanäle werden z.T. von System fest belegt: 


Kanal Verwendung 

0 Memory Refresh (nur XT) 

1 frei 

2 Floppydisk 

3 Harddisk 

4 Kaskadierung vom 1.Controller (AT) 


Alle anderen Kanäle sind frei. 


Die DMA-Register 
Das Kommando/Status-Register (Port 008h/0D0h) 


Bei Lesezugriffen dient das Register als Statusregister, wobei Bit 0..3 
die Kanalnummer bezeichnen, die einen Transfer beendet hat, die 
Bits 4..7 die Kanalnummer, bei der eine DMA-Anforderung vorliegt. 


Bei Schreibzugriffen dient das Register als Steuer- oder Komman- 
doregister mit folgender Belegung: 
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Bit Bedeutung 

0/1 Speicher-Speicher-Transfer sperren/zulassen 
1/0 Adresse Kanal 0 speichern/nicht speichern 
0/1 DMA-Controller sperren/zulassen 

0/1 normales/komprimiertes Timing 

0/1 fixe/rotierende Priorität 

0/1 normale/besondere Schreibauswahl 
DREQ-Signal 

DACK-Signal 


NOAMVMHKNDN MO 


Das DMA-Request-Register (Port 009h/0D2h) 


Mit Hilfe dieses Registers läßt sich eine DMA-Anforderung per Soft- 
ware setzen. Es läßt sich nur schreiben, und es gilt folgende Bele- 


gung: 
Bit Belegung 

0..1 Kanalnummer 

2 0/1 = Löschen/Setzen einer Anforderung 


Das Single-Mask-Register (Port 00Ah/0D4h) 


Mit Hilfe des Registers wird der DMA-Transfer kanalweise 
zugelassen oder gesperrt (Nur-Schreib-Register): 


Bit Belegung 

0..1 DMA-Kanal 

2 0/1 Zulassen/Sperren des Transferkanals 
Das Modus-Register 


Mit dem Modusregister wird die Transferart festgelegt. Die einzelnen 
Bits sind folgendermaßen belegt: 


Bit Belegung 
0.1 Nummer des Kanals 
2..3 Betriebsart: 


00 = Testmodus (Verifizieren) 
01 = Daten über Port einlesen 
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10 = Daten über Port an Interface leiten 
11 ist undefiniert 


4: 1/0 = Autoinitialisierung ein/aus 
5: 0/1 = Adressen in-/dekrementieren 
6.7: Transfermodus: 


00 = Anfrage-Modus 

01 = Einzel-Modus 

10 = Block-Modus 

11 = Kaskadierter Modus 


Das Adressflipflop (Port 00Ch/0D8h) 


Ein Schreibzugriff auf diese Portadresse setzt ein Flipflop zurück, so 
daß beim Beschreiben der Offset-/Zählerregister das Lobyte zuerst 
adressiert wird. 


Die Adress-/Zählerregister 


Die Offsetregister werden benutzt, um den Offset im Speicher fest- 
zulegen, ab dem Daten gelesen oder geschrieben werden sollen. 
Die jeweilige Speicherseite (1 Seite = 64 KB) wird über das zustän- 
dige Seiten-Register gesetzt. Das Zählerregister enthält die Zahl der 
Bytes/Worte, die transferiert werden sollen. Einige DMA-Kanäle sind 
festgelegt auf Tranfer von Bytes, andere auf den Wort-Transfer. 


Offsetreg. | Zählers Pagereg. 
9 fon Toon fm Tops 
2 om Toon fosın ons 
0 Tocm focn | 
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3.2 


3.2.1 


Die DMA-Seiten- und -Offsetregister sind etwas unkonventiönell be- 
legt. Beim Byte-Transfer werden im Seitenregister die oberen 
Adressbits (16..19) in die unteren vier Register-Bits geladen, wäh- 
rend das Offsetregister die Adressbits 0..15 aufnimmt. Beim Wort- 
Transfer wird Bit 0 des Seitenregisters ignoriert, während das 
Offsetregister die Adressbits 1..16 enthält. Somit ist der Wort- 
Transfer nur ab geraden Adressen möglich. Vor dem Setzen der 
Startadresse oder des Zählers ist unbedingt ein Schreibzugriff auf 
das Adressflipflop vorzunehmen, damit sich dies in einem definier- 
ten Zustand befindet. Tabelle 3.1 gibt eine Übersicht über die 
Seiten- und Offsetregister. 


Der Interrupt-Controller 


Der Interrupt-Controller 8259 dient dazu, die Hardware-Interrupt- 
Anforderungen zu steuern, zu maskieren und nach Priorität sortiert 
der CPU zu melden. Ein Hardware-Interrupt wird z.B. ausgelöst, 
wenn der Anwender die Tastatur betätigt oder die Maus bewegt. 
Aber auch der Timerbaustein löst in regelmäßigen Abständen einen 
Interrupt aus. Die Interrupt-Routine ist dafür zuständig, angemessen 
auf das externe Ereignis zu reagieren, d.h. z.B. festzustellen, welche 
Taste vom Anwender gedrückt wurde, und diesen Wert in den Tas- 
taturpuffer zu übertragen. Eine Hardware-Interrupt-Routine muß 
dem Interruptcontroller das Ende der Bearbeitung mitteilen, da der 
Interruptcontroller sonst keine weiteren Hardware-Interrupts zuläßt. 
Dies kann und sollte geschehen, sobald die Service-Routine die 
CPU-Register gesichert hat. Dazu weiter unten mehr. 


Die PC-Hardware-Interrupts 


Tabelle 3.2 zeigt die Belegung der Hardware-Interrupts beim PC. 
Der Tabelle ist auch zu entnehmen, daß die Hardware-Interrupt- 
Nummern nicht den Interruptnummern der Systeminterrupts ent- 
sprechen. Die Nummer des Systeminterrupts entscheidet, an wel- 
cher Stelle der Interruptvektortabelle die Adresse der Interrupt-Ser- 
vice-Routine steht. (Eine Liste aller im PC belegten Interruptnum- 
mern und ihrer Verwendung findet sich in Anhang A). Die Hard- 
ware-Interrupts IRQ0..IRQ7 belegen die Systeminterrupts 8 bis OFh. 
Sie werden vom ersten Interrupt-Controller verwaltet. Der zweite 
Controller verwaltet die Hardware-Interrupts IRQ8..IRQOFh. Diese 
entsprechen den Systeminterrupts 70h..77h. Die meisten IRQ-Signal- 
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Tabelle 3.2: 


Die PC- 
Hardware- 
Interrupts 
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leitungen sind beim PC bereits vom System belegt. Dennoch gibt es 
auch noch Interrupt-Nummern zur freien Verwendung (etwa in Pro- 
totypkarten). Die Verwendung von Hardware-Interrupts hat große 
Vorteile, da so ein laufendes Programm nicht ständig die Peripherie 
überprüfen muß, sondern statt dessen anderen Aufgaben nachge- 
hen kann, da die Peripherie über den ’Aufruf der Interruptservice- 
Routine selbst dafür sorgt, daß die notwendigen Maßnahmen getrof- 
fen werden. Diese Maßnahmen können dann praktisch im Hinter- 
grund ablaufen. Das laufende Programm bemerkt’ dies nicht 
einmal. 


re System- Verwendung (Auslöser) 
Interrupt 
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Will man über eine neu eingebaute (u.U. selbst entwickelte) Proto- 
typkarte Hardwareinterrupts auslösen, so ist darauf zu achten, daß 
das Interruptsystem eine Totzeit aufweist, die so lange dauert, wie 
die Interruptserviceroutine benötigt, um dem IRQ-Controller das 
Ende des Interrupts zu signalisieren. Während dieser Totzeit kann 
nicht der gleiche Hardware-Interrupt noch einmal ausgelöst werden. 
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Die Register des Interrupt-Controllers 

Der Interrupt-Controller Baustein 8259 A verfügt über mehrere inter- 
ne Register, die seinen Zustand definieren. Die wichtigsten sind das 
Interrupt-Request-Register, in dem die Interruptanforderungen no- 
tiert werden, das In-Service-Register und das Maskenregister (Inter- 
rupt-Mask-Register), mit dem bestimmte Interrupts gesperrt werden 
können. Daneben existieren noch Steuerungsregister, die die ge- 
naue Betriebsart des Bausteins festlegen. Diese werden vom BIOS 
initialisiertt und sollten nach Möglichkeit nicht ohne zwingenden 
Grund verändert werden. Der erste Interruptcontroller belegt die 
Portadressen ab 20h, der zweite ab AOh. Das Interrupt-Mas- 
kenregister befindet sich an der /O-Adresse 21h. Es ist ein Byte 
lang; je einem Bit ist eine IRQ-Nummer zugeordnet. Ist es gesetzt, 
so wird der entsprechende Interrupt nicht zugelassen. Wird somit 
durch ein Programm etwa der Tastatur-Interrupt gesperrt, so wird 
der Prozessor nicht mehr auf die Tastatur reagieren. 

Eine Umprogrammierung dieses Registers wird aber selten notwen- 
dig sein. Wichtig hingegen ist die Portadresse 20h. Wird sie mit dem 
Wert 20h beschrieben (Port[$201:=$20; ), so wird dem Controller ein 
nicht spezifischer EOI (End-Of-Interrupt) signalisiert, wodurch das 
entsprechende Bit im In-Service-Register gelöscht wird. Dies ist 
wichtig, da der Controller solange keine weiteren Interrupts zuläßt, 
wie ihm nicht das Ende des laufenden Interrupts signalisiert wurde. 
Jede Interrupt-Routine, die durch die Hardware ’aufgerufen’ wird, 
muß daher ein EOI an den Interrupt-Controller signalisieren. 

Das Interrupt-Request-Register wird nur durch die Hardware ge- 
setzt. (Es signalisiert ja gerade eine hardwareseitige Anforderung). 
Es lassen sich jedoch sowohl das In-Service- als auch das Interrupt- 
Request-Register programmseitig auslesen. Hierzu muß das Register 
an Portadresse 20h entsprechend gesetzt werden. Es gilt folgende 
Belegung: 


Bit 6543219 
Belegung E2 EL EO M MO L2 L1 LO 


Die Bits MO und Ml legen den Arbeits-Modus des Registers fest. 


M1 MO 
00 : EO..E2 EOI-Typ vom Level LO..L2 
10 : Initialisierungwerte schreiben 


0 1 : Registerwerte lesen 
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Für den EOI-Modus gilt bei 
E0..E2 = 001: Nichtspezifischer EOI 
011: Spezifischer EOI vom Level (LO..L2) 


Für den Lesemodus gilt, daß Bit 0 und 1 das auszulesende Register 
festlegen: 


L1..L0 = 10: Lese Request Register 
L1..L0 = 11: Lese In-Service-Register 


Der Wert läßt sich dann an der Portadresse 20h auslesen. Das Pro- 
gramm IRQ_DEMO.PAS demonstriert diese Möglichkeit. Sie ist aller- 
dings nur zu Testzwecken von Interesse. 


Der Timerbaustein 8253 


Die Programmierung des PC-Timerbausteins erfolgt üblicherweise 
zur Tonerzeugung am Lautsprecher. Dies wird von Turbo Pascal er- 
ledigt. Mit den Routinen Sound/NoSound lassen sich die gewünsch- 
ten Effekte zumeist ohne weiteres erfüllen. 


Der PC-Timer eröffnet aber daneben die Möglichkeit, ein Handicap 
zu beseitigen, das völlig unverständlicherweise den PC-Programmie- 
rer behindert. Wer ab und an in Assembler programmiert, wird sich 
schon des öfteren darüber geärgert haben, daß die PC-Peripherie 
keine Möglichkeit bietet, Zeitintervalle auf mehr als 1/18 Sekunde 
genau zu bestimmen. Auch die von DOS angebotenen Funktionen 
geben die Zeit nicht genauer an. Um zu verstehen, warum dies so 
ist, und wie sich das Manko beseitigen läßt, ist man gezwungen, 
sich etwas genauer mit den Funktionen des Timerbausteins zu be- 
fassen, da die Systemzeit über den Timer gemessen wird. Ist man 
mit den Funktionen des Timers erst einmal vertraut, so stellt es kei- 
ne allzu große Schwierigkeit mehr dar, Zeitintervalle beliebiger Län- 
ge auf einige Mikrosekunden genau zu bestimmen. Dies ist insbe- 
sondere für die präzise Bestimmung des Zeitbedarfs von geschwin- 
digkeitsoptimierten Assemblerroutinen sehr hilfreich. 
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3.3.1 


Der Timerbaustein 


Jeder PC, vom 8086 bis zum 50 MHz i486-er verfügt über einen 
Timerbaustein, der mit immer derselben Taktfrequenz von 1193182 
Hz betrieben wird. 


Der Timerbaustein verfügt über drei voneinander unabhängig pro- 
grammierbare 16-Bit-Zähler, die auf jeweils sechs verschiedene Be- 
triebsarten eingesetzt werden können. Der Timerbaustein wird im 
PC über die //O-Ports 40h..43h programmiert. Der Port 43h ist das 
Steuerregister, die anderen drei Ports dienen zum Schreiben oder 
Lesen des Zählerwertes. Port 40h für Kanal null, Port 41h für Kanal 
eins und Port 42h für Kanal zwei. Jeder Zähler hat einen Ausgang, 
der bei Nulldurchgang je nach Betriebsart einen Impuls oder eine 
Flanke erzeugen kann. 


Der Kanal 0 des Timers ist im PC für die Systemzeit zuständig. Sein 
Ausgang ist mit der Interrupt-Request-Leitung Nr.0 verbunden, so 
daß er in regelmäßigen Abständen den Hardware-IRQ 0 auslöst, der 
mit dem Systeminterrupt 08h identisch ist. Über diesen Interrupt 
wird der BIOS-Zeitzähler inkrementiert (ein Doppelwort an der 
Adresse 40h:6Ch). Da der Kanal null des Timers vom BIOS mit dem 
Startwert FFFFh geladen wird, wird der Interrupt somit 18.2 mal pro 
Sekunde ausgelöst. Hieraus erklärt sich, warum die Zeit normaler- 
weise nicht genauer angegeben wird. Der Handler dieses Interrupts 
löst standardmäßig den sogenannten Timerfolgeinterrupt 1Ch aus, 
in den sich Anwenderprogramme einklinken können. 


Der Kanal eins des Timers ist für den Memory-Refresh zuständig. 
Über ihn wird der DMA-Controller zyklisch aufgefordert, einen Me- 
mory-Refresh durchzuführen. Dieser Kanal ist also tabu. Man sollte 
tunlichst die Finger von ihm lassen, da sonst die Gefahr besteht, 
daß der Computer anfängt, an Gedächtnisschwund zu leiden. 


Kanal zwei des Timers steht dem Anwender zur freien Verfügung. 
Er kann optional mit dem Lautsprecher verbunden werden. 


Ich will nicht sagen, daß der Kanal 0 (Systemtakt) tabu ist, aber ab- 
gesehen davon, daß die Gefahr besteht, daß die Uhr falsch läuft, 
wenn er umprogrammiert wird, benötigt das BIOS z.B. zur Steue- 
rung des Diskettenmotors eine genaue Zeitbasis. Und hierfür ist es 
u.U. eben nicht nur entscheidend, wie oft der IRQ 0 ausgelöst wird, 
sondern auch, in welchem Modus der Timer zählt. Zumindest das 
PHOENIX-BIOS meines PCs greift auch auf den Zählerwert dieses 
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Timerkanals zu, so daß ich es für ratsam halte, auch diesen Kanal 
nicht umzuprogrammieren. 


Die Betriebsarten des Timers 
Der Timer läßt sechs verschiedene Betriebsarten zu: 


Nummer Betriebsart 

Interrupt bei Zählernulldurchgang 
Monostabile Kippstufe 
Taktgenerator mit Teiler durch N 
Rechteckgenerator 
Softwaregesteuertes Signal (Strobe) 


RNODNMm oO 


Hardwaregesteuertes Signal (Strobe) 


Für den Anwender sind hiervon vor allem die Betriebsart 3 (zur 
Steuerung des Lautsprechers) und die Betriebsart 2 (zur Zeitmes- 
sung) von Interesse. 


Beide Betriebsarten sind zyklisch und abwärtszählend, d.h. hat der 
Zähler den Wert null erreicht, wird der Anfangswert erneut geladen 
und wieder bis null gezählt. 


In Betriebsart drei zählt der Zähler allerdings doppelt so schnell (es 
wird jeweils um zwei dekrementiert), da ein Zyklus darin besteht, 
den Anfangswert zweimal auf null zu zählen. Bei jedem Nulldurch- 
gang wird der Ausgang umgeschaltet, so daß ein Rechtecksignal am 
Ausgang entsteht. Dieses Rechtecksignal kann an den Lautsprecher 
geschaltet werden. 


In Betriebsart zwei hingegen wird immer um eins dekrementiert. 
Beim Nulldurchgang wird der Ausgang für eine Periode umgeschal- 
tet. Es entstehen somit kurze Impulse am Ausgang in vergleichswei- 
se großem Abstand. Kanal null läuft auf Betriebsart drei. Dadurch 
wird es unmöglich, diesen Kanal direkt zur Zeitmessung zu nutzen, 
da zwischen zwei Interrupts jeweils noch ein Nulldurchgang liegt. 
Der Zählerwert ist daher nicht mehr eindeutig mit dem absoluten 
Zeitwert verknüpft, und es ist für das Anwenderprogramm nicht 
möglich, festzustellen, ob gerade die erste oder die zweite Periode 
läuft. Man kann die Systemuhr auch auf Betriebsart zwei laufen 
lassen, wodurch erreicht würde, daß der Timer zwischen zwei 
Timerinterrupts nur genau einmal vom Anfangswert auf Null zählen 
würde, da aber wie gesagt die Gefahr besteht, daß dies mit den 
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BIOS-Funktionen kollidiert, so sollte man lieber auf den Kanal zwei 
zurückgreifen. (Dies bedeutet leider, daß man nicht beides kann: 
Zeit messen und den Lautsprecher betreiben.) 


Die Programmierung des Timers 
Jeder Zugriff auf den Timer beginnt mit dem Schreiben eines Bytes 
in das Steuerregister (Port 43h). Es gilt folgende Codierung: 
Bit 76543 
ZZIM 


0 
KK D 


21 
MM 
K: Kanalauswahl (0..2) 
Z:  Zugriffsart: 
0: Aktuellen Wert zum Auslesen zwischenspeichern 
(Zähler läuft weiter) 
1: Nur LoByte schreiben 
2: Nur HiByte schreiben 
3. Erst LoByte, dann HiByte schreiben 


Bei Zugriffsart drei müssen beide Bytes geschrieben werden, 
da sonst der Zähler nicht gestartet wird. 


M: Betriebsmodus (vergl. oben) 
D: Dezimalbit: 
0: Binär zählen (Maximaler Startwert FFFFh) 
1: Dezimales (BCD) Zählen (Maximaler Startwert 9999h) 


Der Timerkanal zwei muß nach dem Laden noch extra gestartet 
werden. Hierfür wird Bit null von Port 61h (Tastaturprozessor) 
gesetzt. Soll Timerkanal zwei an den Lautsprecher geschaltet wer- 
den, so muß zusätzlich Bit eins von Port 61h gesetzt werden. Im 
nächsten Abschnitt wird die UNIT TIMER vorgestellt, die dem 
Zweck dient, Zeitmessungen mit einer Genauigkeit von rund einer 
Mikrosekunde zu ermöglichen. Hierzu muß allein die Prozedur 
’Synchronize’ aufgerufen werden. Ihr Zweck ist es, zum einen den 
Timerkanal zwei mit dem Timerinterrupt zu synchronisieren und 
zum zweiten, eine 'Nullzei’ zu messen und in der Variable 
"TimeBias’ zur Verfügung zu stellen. Will man danach den Zeitbe- 
darf einer Routine feststellen, so geht man folgendermaßen vor: 
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Synchronize; 

tl:= GetSeconds; 

TestProc; 

t2:= GetSeconds; 
TimeOfTestProc:= t2-tl-timebias; 


Hierbei ist zu beachten, daß für den Fall, daß ein 80x87 im System 
ist, der Zeitbedarf mindestens zweimal gemessen werden muß, da 
der Turbo-Pascal-Floating-Point-Emulator selbstprogrammierend ist: 
Während beim ersten Durchlauf eines Codefragments einer der 
Emulator-Interrupts aufgerufen wird (vergl. Kapitel 2), so wird erst 
beim zweiten Mal ausschließlich der FPU-Befehl bearbeitet. Dies 
würde die Zeitmessung erheblich verfälschen, es sei denn, man will 
eben genau diesen Effekt messen. 


Die Unit Timer 


Der einzige Zweck der in der UNIT TIMER vorgestellten Funktionen 
ist die Zeitmessung. Hierbei wird ausschließlich auf den Timerkanal 
zwei (Lautsprecher) zugegriffen, was bedeutet, daß in Programmen, 
die den Lautsprecher nutzen, die Anwendung dieser Funktionen 
nur unter Vorbehalten sinnvoll ist. Nach dem oben Beschriebenen 
sollte man allerdings auch in der Lage sein, den Kanal null so um- 
zuprogrammieren, daß er für die Zeitmessung in Frage kommt, 
wenn man die geäußerten Bedenken ausschließen kann. 


feet Copyright (C) Christian Baumgarten 1993 +++") 
unit timer; 
interface 
var timebias:extended; 


function GetSeconds :extended:; 
procedure Synchronize; 


implementation 
uses dos; 


function biostime:longint; assembler; 
asm 

mov es,seg0040 

mov bx,$6C 

mov ax,es:[bx] 

mov dx,es:[bx+2] 

end; 
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procedure StartTimer; assembler; 
asm 
in al,61h 
or all 
out 61h,al 
end; 


procedure StopTimer; assembler; 
asm 
in al,61h 
and al,$FE 
out 61h,al 
end; 


procedure SetTimer(modus:byte;count:word):; assembler; 

asm 

mov ah,$B0 { Kanal 2, Zugriffsart 3 } 
mov al ‚modus 

shl al,l 

and al,$F 

or al,ah 

out 43h,al 

mov ax,count 

out 42h,al 

mov al,ah 

out 42h,al 
end; 


function TimerCount:word; assembler; 

asm 

mov al,$80 { Kanal 2, Zugriffsart 0 } 
out 43h,al 

in al,42h 

mov ah,al 

in al,42h 

xchg al,ah 
end: 


function GetSeconds :extended; 
var r:extended; t:word: 
begin 
r:=BiosTimetl; 
t:=timercount; 
GetSeconds:=(r * 65536-t)/1193182; 
end; 
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procedure TimerInt; Interrupt:; 

begin 
SetTimer(2,$FFFF);  { Betriebsart 2, Startwert FFFFh } 
StartTimer; 

end; 


procedure Synchronize; 
var p:pointer; 1:longint; t:extended; 
begin 

1:=BiosTime; 

getintvec($1C,p); 

setintvec($1C,@TimerInt); 

{ Warten auf den Timerinterrupt } 

repeat until BiosTime<>] ; 

setintvec($1C,p); 

Die Doppelschleife ist nötig, da der Fließkommaemulator 
von Turbo Pascal beim zweiten Durchlauf anders arbeitet 
als beim ersten (Falls ein 80x87 installiert ist) ! 
Will man den Zeitbedarf einer Fließkommaoperation 
abschätzen, so muß man dafür sorgen, daß das entsprechende 
Codefragment mindestens zweimal durchlaufen wird ! } 

for 1:=0 to 1 do 

begin 

t:=getseconds; 
timebias:=getseconds; 
timebias:=timebias-t; 
end; 
end; 


Dans 


end. 


Der CMOS-Uhrenbaustein 


Genaugenommen hat der PC/AT zwei Uhren: Den CMOS-Uhren- 
baustein und die durch den Timer (siehe unter Timer) gesteuerte 
Systemzeit. In diesem Abschnitt möchte ich den CMOS-Uhrenbau- 
stein und die BIOS- und DOS-Zeitfunktionen vorstellen. Zuerst je- 
doch zum CMOS-Baustein. Dieser Baustein erfüllt nebenbei auch 
die Funktion, die Systemkonfiguration für das BIOS (batteriegepuf- 
fert) zu speichern, da CMOS-Chips einen extrem niedrigen Strombe- 
darf aufweisen. Dieser interne Speicher wird über die Portadressen 
70h (Indexport) und 71h (Datenport) gelesen bzw. beschrieben. 
Das Schreiben sollte man vielleicht besser dem System (sprich dem 
BIOS) überlassen. Das Lesen im Uhrenbaustein ist dagegen der si- 
cherste Weg für ein Programm, an eine Reihe von Informationen 
über das System zu gelangen. 
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3.4.1 Die CMOS-Register 


Die Registerbelegung des Bausteins zeigt Tabelle 3.3. Nicht aufge- 
führte Registernummern sind 'reserviert’. Alle Speichergrößen gelten 
in der Einheit KB. 


Das Diagnosebyte ist dabei folgendermaßen belegt: 


Bit Bedeutung, wenn gesetzt 

0.1 - 

2 Uhrzeit ungültig 
Floppy/Harddisk-Controller fehlerhaft 
Speichergröße fehlerhaft/ungültig 
Systemkonfiguration ungültig 
Checksum ungültig 


Batterie schwach: Systemkonfiguration und Uhrzeit neu 
einstellen 


a 


Typ der Floppylaufwerke (1. Floppy = Bit 0..3; 2. 
Floppy = Bit 4..7) 


N OAW GN WW 


Tabelle 3.3: 
Die Belegung 
der CMOS- 
Register 


SB 
= 


r 
oO 
> 
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Tabelle 3.3: Fortsetzung 


Typ der Festplatten (1. Hardisk = Bit 0..3; 2. Harddisk 
= Bit 4..7) 


12h 
16h i 


Eu 
[16h [Base Memory HiBte —[ 
EN 
EEE 


Info-Flags, Bit 7 = 1 bedeutet eine Basisspeichergröße 
von 640 KB (statt 512 KB) 


Die Angaben zur Größe des installierten Ram-Speichers gelten in 
KBytes. Sie stellen meiner Erfahrung nach die einzig sichere Infor- 
mationsquelle hierzu im PC dar. Auf die Angaben der entsprechen- 
den BIOS-Interrupts ist nicht immer Verlaß. 
Die Bedeutung eines Diskettentyp-Nibbles: 


Wert Laufwerkstyp 


0 Nicht vorhanden 
1 360 KB 

2 1.2 MB 

3 720 KB 

4 1.44 MB 


Die korrekte Interpretation des Festplattennibbles zeigt Tabelle 3.4. 
Neuere Festplatten passen meist nicht mehr in dieses Typschema. 
Ihre Parameter müssen daher oft direkt im BIOS-SETUP eingegeben 
werden. Das BIOS reserviert hierfür i.a. zwei Typ-Nummern, die für 
den Benutzer reserviert sind. 
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Tina (Zyinder __Txöpte _ Ttanderone | 
Tanled [Code Taylinder Lunderone 
Pod [0 Inhvonanden | | | 


1 
N 
[07 
& 


un 


"| ll | Im | uw 
un 


kein Standardtyp 


- Für die Belegung des Equipment-Flags gilt: 


Bit Bedeutung 

0 1/0 Diskettenlaufwerk vorh./n. vorh. 

1 1/0 Coprozessor installiert/n. inst. (funktioniert nicht 
100 %) 

2..3 z 

4..5 Videoadapter: 


0: Adapter mit eigenem Bios (EGA oder VGA) 
1: CGA mit 40-Zeichen-Bildschirm-Adapter 
2: CGA mit 80-Zeichen-Farbadapter 
3: Monochromadapter 
6..7 Zahl der Diskettenlaufwerke - 1, falls Bit0 =1 
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Statt eines direkten Zugriffs auf den CMOS-Baustein kann man sich 
auch folgender BIOS- und DOS-Funktionen bedienen: 


Interrupt 11h: ’Get Hardware Konfiguration’ 


IN: - 
OUT: 
AL: Equipment-Flags wie oben 
AH: Erweitertes Konfigurations-Byte: 
Bits Bedeutung 
0 unbelegt 
1..3 Zahl der seriellen Schnittstellen 
4 1/0 Gameport vorh. /n. vorh. 
5 unbelegt 
6..7 Zahl der parallelen Schnittstellen 


Anm.: Dieses Konfigurations-Byte steht auch im BIOS-Datenbereich 
an der Adresse 40h:10h. Das Equipment-Flag an der Adresse 
40h:11h. 
Interrupt 12h: ’Get Memory Size’ 
IN: - 
OUT: 

AX: Speichergröße in KB 
Anm.: Der Wert soll auch im BIOS-Datenbereich an der Adresse 
40h:13h zu finden sein. Die Funktion ist nicht bei allen BIOS-Ver- 


sionen implementiert. Es ist ratsam, direkt auf das CMOS zuzugrei- 
fen. 


Interrupt 15h, Funktion 88h: ’Get Extended Memory Size’ 


IN: 
AH: 88h 
OUT: 
AX: Extended Memory in KB 


Anm.: Die Funktion ist nicht bei allen BIOS-Versionen implemen- 
tiert. Ein direktes Auslesen des CMOS ist zu empfehlen. 
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Interrupt 15h, Funktion COh: ’Get System Configuration’ 
IN: 
AH: COH 
OUT: 
Carryflag gesetzt: Fehler 
Carryflag gelöscht: ES:BX: Zeiger auf folgende Tabelle: 


Offset Länge Inhalt 

Länge der Tabelle in Bytes 
Hauptversion des PC-Modells 
Unterversion des PC-Modells 
BIOS-Versionsnummer 


Systeminformationen 


N VNA WDN Oo 
SS 


Systeminformationen (reserviert) 


Für das Systeminformationsbyte ab Offset 5 gilt folgende Belegung: 


Bit Belegung 

1 = Erweiterter Biosdatenbereich vorh. 

1 = Ein Tastaturfolgeinterrupt 15h ist installiert 
1 = Ein CMOS-Chip ist vorhanden 

1 = Ein 2. Interruptcontroller ist vorhanden 

1 = DMA-Kanal 3 wird für die Festplatte genutzt 


NOV HKAD 


Für die Versionsnummern gelten folgende Codes: 


Modell Hauptversion Unterversion 
PC FFh - 

xXT FEh, FBh 0 oder 1 

AT FCh 0 oder 1 
AT/286 FCh 2 

PS/2 30 FAh 0 

PS/2 50 FCh 4 

PS/2 60 FCh 5 


PS/2 80 F8h 0 oder 1 


82 


3 Die interne Peripherie 


3.4.2 


Anm.: Das PC-Modell steht auch im ROM-BIOS an der Adresse 
F000:FFFE. Für einen Zugriff im Protected Mode benötigt man einen 
Alias-Selektor SegF000. 


Interrupt 1Ah, Funktion 0: ’Read Time Counter’ 
IN: 

AH: 00h 
OUT: 

CX:DX: Bios-Zeitzähler 

AL: Übertragsflag (0 oder 1) 
Anm.: Der BIOS-Zeitzähler findet sich auch im BIOS-Datenbereich 
an der Adresse 40h:6Ch. Das Übertragsflag steht an der Adresse 
40h:70h. Der Zeitzähler läßt sich auch verwenden, um die aktuelle 
Uhrzeit zu ermitteln, da sein Wert beim Systemstart vom BIOS mit 
der Tageszeit in Einheiten von 1/18.2 sec initialisiert wird. Wird der 
Wert des Zeitzählers somit durch 18.2 geteilt, so erhält man die Ta- 
geszeit in Sekunden. 


Interrupt 1Ah, Funktion 01: ’Set Time Counter’ 
IN: 
AH: 01 
CX:DX: Zählerwert 
OUT: - 
Anm.: Siehe Funktion 0. 


Die BIOS-Zeitfunktionen 


Das BIOS stellt zur Steuerung der RTC (Real Time Clock) den Inter- 
rupt 1Ah zur Verfügung. Da dieser Interrupt hierfür schon einmal 
existiert, sollte man ihn auch zu diesem Zweck nutzen und nicht di- 
rekt auf die RTC-Zeitregister zugreifen. 


Interrupt 1Ah, Funktion 2: ’Read Real Time Clock’ 


IN: 
AH: 02 
OUT: 
Carryflag: 1: Fehler, keine RTC vorhanden 
0: Alles klar 
DH: Sekundenzähler (BCD) 
CL: Minutenzähler (BCD) 


CH: Stundenzähler (BCD) 
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Interrupt 1Ah, Funktion 03: ’Set Real Time Clock’ 


IN: 
AH: 03 
CH: Stunden (BCD-Format) 
CL: Minuten (BCD-Format) 
DH: Sekunden (BCD-Format) 
DL: 0/1 = 12/24-Std.-Zählung 
OUT: = 
Interrupt 1Ah, Funktion 04: ’Read Date from RTC’ 
IN: 
AH: 04 
OUT: 


Carryflag: 1: Fehler (keine RTC vorh.) 
0: Aufruf fehlerfrei 


CH: Jahrhundert (BCD) 

CL: Jahr (BCD) 

DH: Monat (BCD) 

DL: Tag (BCD) 
Interrupt 1Ah, Funktion 05: ’Set Date in RTC’ 
IN: 

AH: 05 

CH: Jahrhundert (BCD) 

CL: Jahr (BCD) 

DH: Monat (BCD) 

DL: Tag (BCD) 
OUT: - 
Interrupt 1Ah, Funktion 06H: ’Set Alarm Time’ 
IN: 

AH: 06 

CH: Stunden (BCD) 

CL: Minuten (BCD) 

DH: Sekunden (BCD) 


OUT: - 
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Anm.: Ist die Alarmzeit erreicht, so löst die Uhr einen Hardware-In- 
terrupt aus. Der Prozess, der die Alarmbedingung auslöst, muß vor- 
her den Interruptvektor 4Ah auf eine eigene Routine setzen, die 
bei Alarmbedingung aufgerufen wird. 
Interrupt 1Ah, Funktion 07h: ’Clear Alarm’ 
IN: 

AH: 07h 
OUT: - 
Anm.: Die Funktion löscht die mit Funktion 06 gesetzte Alarmbe- 
dingung wieder. 


Interrupt 15h, Funktion 83h:’Event Wait’ 


IN: 
AH 83h 
AL 00 = Byte setzen 


01 = Byte löschen 
ES:BX Zeiger auf zu setzendes/löschendes Byte 
CX:DX Anzahl Mikrosekunden 
OUT: - 
Anm.: Die Funktion sorgt dafür, daß das Byte an der übergebenen 
Adresse nach Ablauf der Zeitspanne gesetzt/gelöscht wird. Durch 


Abfrage dieses Bytes weiß das Programm dann, daß die Zeitspanne 
verstrichen ist. 


Die DOS-Zeitfunktionen 


Natürlich bietet auch DOS als Betriebssystem Funktionen zur Ermitt- 
lung der Systemzeit an. Die Zeitfunktionen geben die 1/100 Sekun- 
de jedoch nicht genau an, sondern in Schritten von 6..7 (1/18.2 Se- 
kunden). Wer die Zeit genauer ermitteln will, sollte sich mit dem 
Timer vertraut machen (Kapitel 3.3). Oft wird auch das ’gepackte’ 
DOS-Zeitformat benötigt. Es besteht aus einem Doppelwort, wobei 
das Lo-Word die Uhrzeit, das Hi-Word das Datum enthalten. Die 
Uhrzeit ist folgendermaßen codiert: 


Bit 15...12 11..5 4..0 
Inhalt [Stunden] [Minuten] [Sekunden / 2] 
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Das Datumsformat: 


Bit 15..9 8...5 4..0 
Inhalt [Jahr] [Monat] [Tag] 


Das Jahr wird ab 1980 gerechnet. 
Dieses Format wird z.B. im Verzeichniseintrag einer Datei verwen- 
det (vergl. Kapitel 9.1.5). 


Interrupt 21, Funktion 2Ah: ’Get Date’ 


IN: 

AH: 2Ah 
OUT: 

cXx: Jahr - 1980 

DH: Monat 

DL: Tag 

AL: Wochentag 
Interrupt 21h, Funktion 2Bh: ’Set Date’ 
IN: 

AH: 2Bh 

cXx: Jahr - 1980 

DH: Monat 

DL: Tag 
OUT: AL = 0: Alles OK 


AL = FFh: Datum ungültig 
Interrupt 21h, Funktion 2Ch: ’Get Time’ 


IN: 
AH: 2Ch 

OUT: 
CH: Stunden 
CL: Minuten 
DH: Sekunden 


DL: 1/100 Sekunden (Max. Auflösung: 1/18.2 s) 
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Interrupt 21h, Funktion 2Dh: ’Set Time’ 


IN: 


AH: 
CH: 


CL: 


DH: 


DL: 
OUT: 


2Dh 

Stunden 

Minuten 

Sekunden 

1/100 Sekunden 

AL = 0: Alles OK 

AL = FFh: Zeit ungültig 


Die Schnittstellen 


Unter den Schnittstellen des PC sollen hier nur die seriellen Schnitt- 
stellen (COM1..COM4) und die Parallel-Schnittstellen (LPT1..LPT4) 
verstanden werden. 


Natürlich gibt es weitere Schnittstellen (z.B. die zur Tastatur oder 
zum Videoadapter), denen jedoch ein jeweils eigenes Kapitel ge- 
widmet ist. 

Die erste serielle Schnittstelle ist meist mit der Maus belegt. Die in 
dieser speziellen Verwendung oft benötigten Informationen befin- 
den sich ebenfalls in einem eigenen Kapitel (Kapitel 6). 


Es sei explizit darauf hingewiesen, daß die Schnittstellen auch als 
Geräte geöffnet und angesprochen werden können. Hierfür hat Ms- 
Dos eigens ’Handles’ reserviert. Lesen Sie hierzu Näheres im Kapitel 
über die DOS-Handlefunktionen (Kapitel 10.1.2). 


Die Parallel-Schnittstelle 


Die parallele oder Centronics-Schnittstelle dient im allgemeinen der 
Datenausgabe an einen Drucker oder Plotter. Das BIOS stellt zur 
Steuerung der Parallel-Schnittstelle einen eigenen Interrupt (17h) 
zur Verfügung, der ausreicht, alle normalen Anforderungen zu 
befriedigen. Eine direkte Ansteuerung über die Ports der Parallel- 
Schnittstellen wird kaum nötig sein. Die Geschwindigkeitssteigerung 
bei direkter Ansteuerung wird selten einen Vorteil bedeuten, da der 
Drucker die Daten nur solange entgegennehmen kann, bis sein in- 
terner Datenpuffer gefüllt ist. Danach ist die Ausgabegeschwindig- 
keit allein von der Druckgeschwindigkeit des Gerätes abhängig. Ich 
empfehle daher die Nutzung der BIOS-Routinen zur Steuerung der 
Druckausgaben, insbesondere, da die Registerbelegung versionsab- 
hängige Unterschiede aufweisen kann. 


88 


4.1.1 


4.1.2 
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Natürlich läßt sich der Drucker auch als Ms-Dos-Gerät über die 
Handle-Funktionen ansprechen (vergl. Kapitel 10.1), wie dies auch 
in der UNIT PRINTER von Borland gehandhabt wird. 


Die Register der Parallelschnittstellen 


Die Basisadressen der Ports von LPT1..LPT4 stehen als Wort im 
BIOS-Datenbereich ab Adresse 40h:08h. Dies ist die direkte /O- 
Adresse des Datenregisters. Die Adresse des Statusregisters ist um 
einen, die des Steuerregisters um zwei höher. 


In das Datenregister werden Daten geschrieben, die gesendet wer- 
den sollen. 

Das Statusregister meldet den aktuellen Zustand des Druckers und 
kann nur gelesen werden. Für seine Belegung gilt: 


Bit Bedeutung 

012 - 

3 0/1: Fehler/Kein Fehler 

4 1/0 Drucker bereit/nicht bereit 

5 1/0 Papier fehlt/fehlt nicht 

6 0/1 ACK-Signal vorh./nicht vorh. 
7 0/1 Drucker busy/nicht busy 


Das Steuerregister kann gelesen und geschrieben werden. Für die 
einzelnen Bits gilt folgende Belegung: 

Bit Bedeutung 

Zustand Data Strobe Leitung 

Zustand Auto Feed Leitung 

Zustand Init-Leitung (Lo-Aktiv) 

Zustand Select-In-Leitung 

Interrupts zugelassen 

Bidirektionaler Betrieb 


7 Reserviert 


AN DON MO 


Die Funktionen des BIOS-Interrupt 17H 


Der BIOS-Interrupt 17h ist speziell für die Druckausgabe über die 
Parallel-Schnittstelle reserviert. Er stellt drei Funktionen zur Verfü- 
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gung, die im allgemeinen vollkommen ausreichen, den Drucker an- 
zusteuern. 
Für das Statusbyte, daß bei allen Funktionen in AH zurückgegeben 
wird, gilt stets die folgende Belegung: 
Bit Bedeutung 

Time Out 
2 = 

V/O-Fehler 

Drucker bereit 


Papierende 
Bestätigung (Acknowledge) 


NAaAUVKMKVDHRO 


Not Busy 


Ein betriebsbereiter Drucker entspricht also nicht Status 0, sondern 
hat mindestens Bit 4 gesetzt. 


Interrupt 17h, Funktion 0:’Send Character’ 


IN: 

AH: 00h 

AL: Zeichen 

DX: Schnittstelle (0 = LPT1, 1=LPTZ2, ...) 
OUT: 

AH: Statusbyte 
Interrupt 17h, Funktion 1:’Initialize Printer-Port’ 
IN: 

AH: 01h 

DX: Schnittstelle (wie bei Fuktion 0) 
OUT: 

AH: Statusbyte 
Interrupt 17h, Funktion 2:’Read Printer State’ 
IN: 

AH: 02h 

DX: Schnittstelle (wie bei Funktion 0) 
OUT: 


AH: Statusbyte 


4.1.3 
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Die DOS-Drucker-Funktionen 


Neben dem BIOS-Interrupt 17h lassen sich auch einige Funktionen 
des Interrupt 21h zur Druckersteuerung verwenden. Hierbei ist al- 
lerdings zu beachten, daß der Drucker (abgesehen von Funktion 5) 
für DOS ein ’Gerät’ ist wie viele andere. Die Ausgabe an den Druk- 
ker kann somit entsprechend der Ausgabe in eine Datei über eine 
Kennziffer (Handle) erfolgen. Die Datei ’heißt’ im Falle des Druk- 
kers dann etwa ’LPT1’. Die Handleorientierten DOS-Funktionen 
werden im Kapitel über das Dateimanagement (10.1) genauer vor- 
gestellt. Eine andere (etwas veraltete) Möglichkeit stellt Funktion 
fünf dar: 


Interrupt 21h, Funktion 5:’Print Character’ 


IN: 

AH: 05h 

DL: Zeichen 
OUT: - 


Anm.: Angesprochen wird immer der Standard-Druckertreiber. Es 
wird kein Statuswert zurückgegeben. 


Für die Druckausgabe in Netzwerken existieren ab DOS 3.1 weitere 
Funktionen zur Druckausgabe. Hierbei ist zu beachten, daß sich bei 
DOS Einheiten ’umleiten’ lassen. D.h. , daß das Gerät LPT1 etwa mit 
einem bestimmten Netzwerkdrucker identifiziert werden kann. Eine 
Ausgabe an ’LPT1’ wird damit an den entsprechenden Netzwerk- 
drucker umgeleitet. Die Verbindung zwischen dem lokalen Einhei- 
tennamen ’LPT1’ und dem Netzwerknamen ’XYZ’ stellt die Umlei- 
tungstabelle her. Ihre Einträge können über einen Index ermittelt 
werden: 
Interrupt 21h, Funktion 5F02h:’Get Redirection List Entry’ 
IN: 

AX: 5F02h 

BX: Index in die Umleitungstabelle (erster Eintrag = 0) 

DS:SI: Puffer für den lokalen Einheitennamen (128 Byte) 

ES:DI: Puffer für den Netzwerknamen der Einheit (128 Byte) 
OUT: 

Carryflag gesetzt = Fehler 

AX: Fehlercode 
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1: Keine Netzwerksoftware geladen 
18: Keine weiteren Einträge (Index zu groß) 
Carryflag gelöscht = OK 


BH: Status der Einheit: 

Bit 0 = 0/1 Einheit gültig/undefiniert 
BL: Typ der Einheit: 

3: Drucker 

4: Laufwerk 
c: Benutzercode 


Anm.: Die Funktion kopiert die Namen als nullterminierte Strings in 
die jeweiligen Puffer. Der Benutzercode wird durch die folgende 
Funktion definiert: 


Interrupt 21h, Funktion 5F03h:’Redirect Device’ 


IN: 
AX: 5F03h 
BL: Typ der Einheit (siehe Funktion 5F02) 
CcX: Benutzercode 
DS:SI: Zeiger auf ASCIIZ-String mit dem Namen der Einheit 
ES:DI Zeiger auf einen Puffer mit Pfadnamen und Passwort: 
<Maschinenname><Pfadname><00h><Passwort><00h> 
OUT: Carryflag gesetzt: Fehlercode in AX, sonst OK. 


Anm.: Beide Eingangspuffer dürfen maximal 128 Byte lang sein. Der 
Maschinenname wird durch die Funktion 5E00h ermittelt. 


Interrupt 21h, Funktion 5F04h: ’Cancel Redirection’ 


IN: 

AX: 5F04h 

DS:SI: Zeiger auf den Namen der Einheit (ASCIIZ-String) 
OUT: 

Carryflag gesetzt: 

AX: Fehlercode 


Carryflag gelöscht = Alles OK. 
Anm.: Mit Hilfe der Funktion läßt sich eine Geräteumleitung rück- 
gängig machen. 
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Interrupt 21h, Funktion 5E00h: ’Get Machine Name’ 


IN: 
AX: 5EO00h 
DS:DX: Zeiger auf 16-Byte-Puffer für ASCIIZ-String 
OUT: Carryflag gesetzt: Fehlercode in AX, sonst OK: 
CH: Flag 
CL: NetBios-Nummer der Maschine 
Interrupt 21h, Funktion 5E02h: ’Set Printer Init’ 
IN: 
AX: 5EO2h 
BX: Index der Umleitungsliste 
cx: Länge des Initialisierungsstrings (<= 64) 
DS:SI: Zeiger auf Initialisierungsstring 
OUT: Carry gesetzt: AX = Fehlercode 


Carry gelöscht => Alles OK 


Interrupt 21h, Funktion 5E03h:’Get Printer Init’ 
IN: 
AX: 5E03h 
BX: Index der Umleitungsliste 
ES:DI: Zeiger auf einen Datenpuffer von 64 Byte Länge 
OUT: 
Carryflag gelöscht: 
cx: Länge des Initialisierungsstrings 
Carryflag gesetzt: 
AX: Fehlercode 


Die Druckausgabe auf ein Gerät LPT1 funktioniert dann unter DOS 
folgendermaßen: 


1) Gerät öffnen (Handlefunktion 3Dh des Interrupt 21h) mit Namen 
'LPTn’. 

2) Daten an das Gerät senden (Funktion 40h des Interrupt 21h) 

3) Gerät schließen (Funktion 3Eh des Interrupt 21h) 


Diese Funktionen werden im Zusammenhang mit den Dateifunktio- 
nen des Interrupt 21h detailliert erläutert. 
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4.1.4 


Tabelle 4.1: 
Druckercodes 


Die Ansteuerung eines Druckers 


Es gibt Drucker und Druckverfahren wie Sand am Meer, und von 
einer einheitlichen Steuerung kann eigentlich nicht die Rede sein. 
Dennoch gibt es einige Standards, die z.T. sogar auch für die Bild- 
schirmsteuerung gelten. Tabelle 4.1 gibt diese Standards wieder. 


jascu 
Ber | Klingel (Bell) 
IB | Rückschritt (Back Space) 


® 
=) 


3 


Ce 
fr Jo TitonzoniserTapalaor — | 
ir [10 zeilenvorschub ine Foc) | 
vr fin |VenkalerTabuiner | 
Im [12 Tsoenvorschub rompesd | 
ne 2a 
m 


315|5 


R 
& | 
DC4A 
DEL 


Druckpuffer leeren (Cancel) 
Der Letztes Zeichen löschen (Delete) 


Neben diesen Codes, die nur aus einem ASCII-Zeichen bestehen, 
das gesendet wird, existieren noch eine ganze Reihe sogenannter 
Escape-Sequenzen. Escape ’ESC’ ist ASCII-Zeichen 27. Je nachdem, 
welche weiteren Zeichen einem ESC folgen, gelten die Konven- 
tionen aus Tabelle 4.2. 


Nicht darin enthalten sind alle Graphik-Befehle, die über 9-Nadel- 
Druckmodi hinausgehen. Diese sind dem jeweiligen Druckerhand- 
buch zu entnehmen. Hier existieren zwar Standards, aber eben lei- 
der nicht nur einer allein. Auch die Codes aus Tabelle 4.2 sind 
schon kein allgemeingültiger Standard. So hat z.B. Hewlett Packard 
neben einer Plottersprache auch eine eigene Druckersprache ent- 
wickelt, die praktisch zu den Codes aus Tabelle 4..2 vollständig 


Q 
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inkompatibel ist. Allein die Codes aus Tabelle 4.1 stehen auch bei 
HP-Druckern zur Verfügung. Bei den meisten Nadeldruckern hinge- 
gen wird man die ESC-Codes aus Tabelle 4.2 mit Erfolg anwenden. 


Tabelle 4.2: Dezimal 
ESC-Drucker- Befehl [Dezimal _ 
befehle ESC SO 27 14 Breitschrift für eine Zeile ein 


ESC 3 (n) 


ESCK 27 75 Graphikdruck einf. Punktdichte 
(8-Nadeln) 

ESCL 27 76 Graphikdruck doppelter Dichte 
(8-Nadeln) 
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4.2 


4.2.1 


Tabelle 4.2: Fortsetzung 


Esc- 0/1 [2745 0/1 
ESC p 0/1 |27 112 0/1 | Proportionaldruck aus/ein 
Linken Rand in Spalten festlegen 


Die serielle Schnittstelle 


Die serielle Schnittstelle ist die zweite Standardschnittstelle des PC. 
Mit ihr werden im Gegensatz zur parallelen Schnittstelle Daten bidi- 
rektional und bitweise übertragen, d.h. daß die serielle Schnittstelle 
verwendet werden kann, um verschiedene Rechner zu koppeln 
(auch über ein Modem), um Meßgeräte oder Drucker zu steuern 
oder aber um Daten zu empfangen wie bei der Maus. Die Datenlei- 
tungen können grundsätzlich länger sein als bei der parallelen 
Schnittstelle. Serielle Schnittstellen müssen, da sie Daten bitseriell 
übertragen, in irgendeiner Form synchronisiert werden. Die eine 
Möglichkeit wird synchron’ genannt, weil der Sender dem Empfän- 
ger über eine zusätzliche Leitung seinen Takt "aufzwingt’. Die soge- 
nannte ’asynchrone’ Übertragung spielt jedoch als einzige beim PC 
eine Rolle. Asynchron ist sie insofern, als zwar Sender und Empfän- 
ger auf eine einheitliche Datenübertragungsrate eingestellt werden 
müssen, diese Rate aber von verschiedenen Taktgeneratoren herlei- 
ten, die natürlich nicht synchron gehen müssen. Die Datenübertra- 
gungsrate wird Baudrate genannt und hat als Einheit Bit/Sekunde. 
Eine durchaus hohe Baudrate von 19600 Baud bedeutet somit eine 
klägliche Ausbeute von etwas über 2 KB/sec. (Wer damit eine 2 
MB-Datei übertragen will, braucht etwas Geduld). 


Die serielle Schnittstelle wird in den USA von der RS232-Norm de- 
finiert, die entsprechende Norm in Europa heißt V.24-Norm, so daß 
die serielle Schnittstelle auch oft RS232 oder V.24-Schnittstelle ge- 
nannt wird. 


Das Protokoll der seriellen Datenübertragung 


Damit die ’asynchrone’ Datenübertragung überhaupt funktionieren 
kann, müssen sich Sender und Empfänger auf ein gemeinsames 
Protokoll einigen. Unter einem Protokoll wird hier einfach eine 
Übereinkunft über Baudrate, Anzahl der Daten-, Paritäts- und Stopp- 
bits verstanden. Es sind 5..8 Daten-, 1, 1.5 oder 2 Stopp- und 0 oder 


Tabelle 4.3: 
Baudraten und 
Frequenzteiler 
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1 Partätsbits gebräuchlich. Diese Einstellungen müssen bei Sender 
und Empfänger identisch sein. Daneben müssen sich Sender und 
Empfänger darüber einigen, wer wann sendet und wie lange. Hier- 
für gibt es verschiedene ’Handshake’-Verfahren. Beim Hardware- 
Handshaking werden zu diesem Zweck einige Steuerleitungen be- 
nötigt, während das Software-Handshaking durch Übertragung be- 
stimmter Steuercodes (XON/XOFF) funktioniert. 


Daß die Anzahl der Stoppbits nicht geradzahlig zu sein braucht, 
liegt daran, daß hierbei ein Bit mit einer Zeiteinheit identifiziert 
wird. Danach sind 1.5 Stoppbits einfach der 1.5 fache Zeitraum ei- 
nes normalen Datenbits. 


Die Baudrate der Übertragung basiert auf einer Frequenz von 
115200 Hz, die durch verschiedene Teiler herabgesetzt wird. Ist der 
Teiler 1, so ist die maximale Baudrate von 115200 erreicht. 


Standardisierte Baudraten und Teiler sind in Tabelle 4.3 verzeichnet. 
09 
06 
04 
03 
01 
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4.2.2 


Tabelle 4.4: 
Signalleitungen 
der seriellen 
Datenübertra- 
gung 


4.2.3 


Tabelle 4.3: Fortsetzung 


Die Hardware der seriellen Schnittstelle 


Die ursprüngliche Konstellation, für die die serielle Schnittstelle 
konzipiert war, sieht zwischen zwei Datenendeinrichtungen (DEE) 
je ein Modem als Datenübertragungseinrichtung (DÜE) vor. Werden 
zwei Rechner direkt verbunden, so ist ein sogenanntes 'Nullmodem- 
kabel’ erforderlich, bei dem die Signalleitungen gekreuzt sind. Das 
Kabel der seriellen Schnittstelle besteht aus acht Leitungen, die 
jeweils bei einer DEE und einer DÜE umgekehrt interpretiert 
werden (deshalb auch Nullmodembetrieb zwischen zwei DEES). 


Dre Toehungderben [po | 
om  Tomnd je | 
Ted Trransmi aa mp 
BD Tnecsire mas mp | 
5 Rn 1 
a CC 
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Die Register des Interface-Bausteins 8250 


Im PC dient der Interface-Baustein 8250 als Controller der seriellen 
Schnittstelle. Die Basisadressen der Schnittstellen COM1..COM4 
stehen als Worte im BIOS-Datenbereich an der Adresse 40h:00h. 

(COM1: 3F8h, COM2: 2F8h). Die Register des 8250 zeigt Tabelle 4.5. 
Das Sendehalteregister THR und das Empfangspufferregister 
RBR dienen der Aufnahme und Abgabe der zu sendenden / emp- 
fangenden Daten. Dabei werden Paritäts- und Stopbits vom Control- 
ler gemäß dem eingestellten Protokoll angefügt. Es handelt sich um 
das gleiche physikalische Register an der relativen Adresse 0. Auf 


GND 
TxD 
CTS 
RTS 
DSR 
DTR 
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Tabelle 4.5: 
Die Register 
des 8250 


der gleichen Adresse liegt das DLLB, das Divisor Latch Low Byte- 
Register. Soll auf dieses zugegriffen werden, so ist Bit 7 des Line 
Control Registers (LCR) auf 1 zu setzen. Die relative I/O-Adresse 1 
teilen sich auf die gleiche Weise das Interrupt-Enable-Register 
(IER) und das Divisor-Latch-Hi-Byte-Register (DLHB). Die beiden 
Divisor-Latch-Register enthalten den Divisor, der die Baudrate ge- 
mäß Tabelle 4.2.1.1 einstellt. Das IER dient zur Selektion der Bedin- 
gungen, die einen Hardware-Interrupt auslösen sollen. Zweckmäßi- 
gerweise wird diese Bedingung an die jeweilige Verwendung ange- 
paßt. 


Transmitter Holding Register 


Receiver Buffer Register 
Divisor Latch Low Byte 


ni 


&|= 


ER 
| 0 I 
Fl 
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C Modem Cintrol Register 


R 
R Line Status Register 
IMmsR | Modem Status Register 


Die Belegung des IER ist folgende: 


DLLB 
LCR i 
MCR i 


E 
Im | 
[nor | Moden Gnwol Regine 


Bit Belegung 
0 Interrupt, wenn RBR voll 
(Aufforderung, Daten im RBR abzuholen) 


1 Interrupt, wenn THR leer 
(Aufforderung, weitere Daten zu senden) 

2 Interrupt, wenn Fehler oder Unterbrechung bei der 
Übertragung 

3 Interrupt, wenn MSR sich ändert 


4.7 reserviert 
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Das IER maskiert die entsprechende Interruptbedingung, wenn das 
jeweilige Bit nicht gesetzt ist. Natürlich muß ein Programm zur Da- 
tenübertragung nicht mit Interrupts arbeiten. Es kann stattdessen 
auch das LSR periodisch abfragen (pollen), ob ein Datenbyte emp- 
fangen wurde. In diesem Fall ist der Computer aber offensichtlich 
mit nichts anderem mehr beschäftigt. 

Das IIR, mit dem die Ursache eines Interrupt identifiziert werden 
kann, signalisiert, daß ein Interrupt ansteht, indem es Bit 0 löscht. 
Bit 1 und 2 des IIR geben dann Aufschluß über die Ursache des 


Interrupt: 

Bit 1,2 des IR Interruptursache 

0 Änderung des Modemstatus 
1 Senderegister leer 

2 Empfangspuffer gefüllt 

3 Fehler bzw. Unterbrechung 


Das Line-Control-Register (LCR) enthält wesentliche Konfigurati- 
onsdaten der Schnittstelle: 


Bit Bedeutung 
1,2 Datenwortlänge & Stoppbit: 


3 Paritätsprüfung zulassen 

4 wenn Bit 3=1: 0/1: ungerade/gerade Parität 
5 wenn Bit 3=1: Paritätsbit 

6 Übertragung unterbrechen 

7 0: Zugriff auf THR/RBR/IER 


1: Zugriff auf DLLB/DLHB 


Das Modem-Control-Register (MCR) enthält verschiedene Bits für 
Diagnose- und Testzwecke sowie die Signalleitungen RTS und DTR: 


Bit Bedeutung 

0/1 entspr. 1/0 an der DTR-Leitung 

0/1 entspr. 1/0 an der RTS-Leitung 

0/1 entspr. 1/0 an OUT1 

0/1 entspr. 1/0 an OUT2 

Senden an sich selbst zu Diagnosezwecken 
7 - 


uvnuvH Oo 
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Das Line-State-Register (LSR) enthält diverse Informationen über 
den Status: 


Bit Bedeutung 
0 Data Ready (DR), Datenbyte in RBR angekommen 


1 Overrun Error (OR), RBR wurde überschrieben, bevor die 
Daten gelesen wurden. 


2 Parity Error (PE), Paritätsfehler 

3 Framing Error (FE), Stoppbitfehler 

4 Break Interrupt (BD), Leitungsunterbrechung 
5 THR empty (THRE), Sendehalteregister leer 
6 

7 


TEMT, Sendeschieberegister leer 


Für die Bits des Modem-State-Registers (MSR) gilt folgende Bele- 
gung: 

Bit Belegung 

CTS verändert 

DSR verändert 

RI verändert 

DCD verändert 

Clear To Send - Signal CTS (invers) 

Data Set Ready -Signal DSR (invers) 
Ringindikator-Signal RI (invers) 

Data Carrier Detect - Signal DCD (invers) 


NCAMVMKMNDNDMDO 


Die Bits 0..3 zeigen jeweils an, ob und welche Leitung sich seit der 
letzten Abfrage verändert hat. Die Bits 4..7 geben in invertierter 
Form den aktuellen Signalpegel der entsprechenden Leitungen wie- 
der. Dabei sind CTS und DSR mit den Signalleitungen identisch. Der 
Ringindikator zeigt an, ob das Modem von außen angesprochen 
wird. Das DCD-Signal signalisiert, daß die Spannungspegel am Mo- 
dem korrekt sind. 


Natürlich stellt das BIOS des PC auch für die serielle Schnittstelle 
einige Funktionen bereit. Hierfür ist der Interrupt 14h reserviert. 
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4.2.4 


Der BIOS-Interrupt 14h 


Der Interrupt 14h bietet diverse Funktionen zur Steuerung der seri- 
ellen Schnittstelle. Seine Funktionen sollen im folgenden vorgestellt 
werden. Leider werden hierbei Baudraten von mehr als 9600 Baud 
nicht unterstützt. 


Interrupt 14h, Funktion 0: ’Initialize RS232-Interface’ 


IN: 

AH: 00h 

AL: Initialisierungsdaten 

DX: Schnittstellen-Nummer (0 = COMI, 1= COM2...) 
OUT: 

AX: Statuswort 


Das Byte mit den Initialisierungswerten ist folgendermaßen belegt: 


Bit 


76543210 
Inaltt BBBPPSDD 


Die Bits 5..7 bestimmen die Baudrate: 


0: 110 
1: 150 
2: 300 
3: 600 
4: 1200 
5: 2400 
6: 4800 
T: 9600 


Die Bits 3 und 4 bestimmen die Parität: 
0,2: Keine Paritätsprüfung 

1: Ungerade Parität 

3: Gerade Parität 


Ist Bit 2 gesetzt, so werden zwei Stoppbits benutzt, sonst eines. 
Die Bits O0 und 1 ergeben die Anzahl der Datenbits: 

2: 7 Datenbits 

3: 8 Datenbits 
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Das Statuswort enthält im Lo-Byte den Wert des MSR, im Hi-Byte 
den Wert des LSR. 

Interrupt 14h, Funktion 1: ’Send Character’ 
IN: 

AH: 01h 

AL: Zeichen 

DX: Schnittstelle (vergl Funktion 0) 

OUT: 

AX: Statuswort (vergl Funktion 0) 
Interrupt 14h, Funktion 2: ’Receive Character’ 
IN: 

AH: 02h 

DX: Schnittstelle 
OUT: 

AH: Status 

AL: Zeichen (gültig, wenn AH = 0) 
Interrupt 14h, Funktion 3: ’Read Interface State’ 
IN: 

AH: 03h 

DX: Schnittstelle 
OUT: 

AX: Statuswort 
Beim PS/2 existieren noch weitere Funktionen, die hier aber nicht 
besprochen werden. 

42.5 Ein RS232-Demoprogramm 


Das im folgenden kurz beschriebene Demoprogramm UART- 
DEMO.PAS ist nur anwendbar, wenn zwei PCs verbunden werden. 
Es erlaubt die simultane Kommunikation zweier Teilnehmer über 
einen geteilten Bildschirm und arbeitet empfangsseitig mit einem 
Interrupthandler. 

Das Programm ist für die Schnittstelle COM1 ausgelegt. Soll es an 
anderen Schnittstellen betrieben werden, so sind die entsprechen- 
den Werte für Interrupt-Request-Nummer, Portadressen u.s.w. ent- 
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sprechend anzupassen, da das Programm sonst nicht laufen kann. 
Werden die beiden Rechner nicht über ein Modem verbunden, so 
müssen sie über ein Nullmodem-Kabel verbunden werden. 


{IRFESOTSSERIISSSISTIARTETTSIIRRTFIISISICHIERTRIEIREIRIEISIISICHIAISEHFESIIICIICHSIEITI EIG 
{ Demoprogramm zur Kommunikation über die serielle Schnittstelle } 
{ Das Programm ist für Schnittstelle COM1 ausgelegt, d.h. IRQ ist 4,} 
{ Ports ab 3F8H u.s.w.. 
{ Soll das Programm über andere Schnittstellen betrieben werden, so } 
{ sind die entsprechenden Konstanten anzupassen. } 
{ Das Programm muß auf beiden verbundenen Rechnern geladen sein. } 
} 
} 
} 


{ 
{ Copyright (C) Christian Baumgarten, Hamburg 1992/1993 


program UARTDEMO; 
uses dos,crt; 


const int No = $0C; 


mask_reg = $21; 

DR = $3F8; 
MCR = $3FC; 
MSR = $3FE; 
LSR = $3FD; 
IER = $3F9; 
IR = $3FA; 


var OldIntvec:pointer: 
RX,RY,SY,SX:byte; 
z:char; 


procedure ErrorMsg(s:string); 


begin 

gotoxy(1,24); textattr:=$71; 
writel' ',s,' : '); 

clreo]; 
end; 


procedure E_O_T; 
begin 

Port[$20]:=$20; 
end; 


Function DataAvail:Boolean; 
begin 

Dataavail:=Port[LSR] and 1=1; 
end; 
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procedure RS232_Int: interrupt: 
var data:char: 
begin 
sy:=wherey; 
sx:=wherex; 
window(1,1,80.25): 
window(41,3,80.24); 
gotoxy(rx,ry): 
TextAttr:=Blue shl 4+White; 
while Dataavail do 
begin 
data:=chr(Port[DR]); 
write(data); 
if data=#13 then write(#10); 
end: 
TextAttr:=Blue shl 4+Yellow; 
rx:=wherex; 
ry:=wherey; 
window(1,3,40,24); 
GotoXY(sx,sy); 
E_OlI: 
end; 


{ Im Interruptcontroller Maskierungsbit für IRQ 4 löschen: } 
procedure enable_int; 
begin 
Port[mask_reg]:=Port[mask_reg] and $EF:; 
end; 


{ Im Interruptcontroller Maskierungsbit für IRQ 4 setzen: } 
procedure disable_int; 
begin 
Port[Mask_reg]:=Port[Mask_reg] or $10; 
end: 


procedure Install_int; 
var i:byte; 
begin 
{ Interrupt maskieren: } 
disable_int; 
{ Interruptvector setzen: } 
getintvec(int_No.oldintvec): 
setintvec(int_no,@RS232_int); 
{ Empfangspuffer leeren: } 
i:=Port[DR]: 
{ Interrupt aufrufen, wenn Daten empfangen werden: } 
PortLIER]:=Port[LIER] or 1; 
{ IEN, DTR und RTS setzen: } 
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Port[MCR]:=Port[MCR] or $0B; 

{ Evtl. noch anhängige Interruptanforderungen löschen: } 
EOT: 

{ Interrupt zulassen: } 

enable_int; 

EOT: 
end: 


procedure UnInStall_int; 

begin 
disable_int; 
setintvec(int_No,oldintvec): 
EOLT: 

end: 


procedure SendRS232(c:char): 
var m:byte; 
begin 
while (Port[MSR] and $30<>$30) 
and (Port[LSR] and $40<>$40) and not keypressed do; 
while (Port[MSR] and $30=$30) 
and (Port[LSR] and $40=$40) do Port[DR]:=ord(c): 
end; 


begin 
TextAttr:=blue sh] 4+yellow; 
eIrscr; 
writeln(' RS-232 Datenübertragung’); 
gotoxy(1,24):; write(' Abbruch: ESC drücken..'); 
window(1,3,40,24); 
eIrscr; 
TextAttr:=Blue sh] 4+White; 
RX:=1: 
X:=1:; 
SY:=1; 
RY:=1; 
install_int; 
repeat 
z:=readkey:; 
if (z<>#27) then 
begin 
write(z); if z=#13 then write(#10); 
SendRS232(2): 
end; 
until (z=#27): 
uninstall_int: 
eIrscr; 
end. 
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Die Tastatur des PC wird von einem eigenen spezialisierten Prozes- 
sor gesteuert und erfüllt nebenbei einige zusätzliche Funktionen. So 
wird z.B. ab dem 80286 über die Tastatur die Adressleitung A20 ak- 
tiviert und der Lautsprecher ein- oder ausgeschaltet. Dazu weiter 
unten mehr. Zuerst möchte ich die Tastatur und ihre programm- 
technische Nutzung vorstellen. 


Der Tastatur-Controller 8042 belegt beim PC/AT die Ports 60h..6Fh. 
Hierbei spielt Port 60h die Rolle eines Datenports. Über ihn teilt die 
Tastatur die sogenannten Scancodes der gedrückten Tasten mit. 


Wird eine Taste gedrückt (oder losgelassen), so löst dies den Hard- 
ware-Interrupt 1 (Systeminterrupt 9) aus. Der Tastaturtreiber liest 
dann an Port 60h die Nummer der gedrückten Taste aus und 
schreibt ggf. unter Berücksichtigung der Shift- und Ctrl-Tasten-Zu- 
stände das entsprechende Zeichen in den Keyboard-Puffer. Dieser 
liegt im BIOS-Datenbereich. Falls es sich bei der Taste um eine 
Shift-, Alt- oder Ctrl-Taste handelt, werden bestimmte Flags im 
BIOS-Datenbereich gesetzt, die den aktuellen Zustand dieser Tasten 
festhalten. 


Die Anwendungsprogramme können dann über die BIOS- und 
DOS-Interrupt-Funktionen den Zustand des Tastaturpuffers und den 
Status der Spezialtasten erfragen. 


Der Tastaturpuffer ist als Ringpuffer von 32 Byte angelegt. Zwei 
Zeigerworte im BIOS-Datenbereich zeigen jeweils auf den Anfang 
und das Ende des Puffers. Zeigen beide auf die gleiche Adresse, so 
ist der Puffer leer. Jedes Zeichen belegt im Tastaturpuffer zwei Byte; 
das eine Byte entspricht dem ASCII-Code der gedrückten Taste (so 
sie einen hat, sonst Null), das andere dem Tasten- bzw. Scancode. 
Damit kann der Tastaturpuffer maximal 15 Zeichen aufnehmen. Ist 
der Puffer voll und wird dennoch eine Taste gedrückt, so ertönt ein 
Warnsignal. 


Die CRT-Funktion Readkey liefert das ASCII-Zeichen der Taste. Ist 
dieses gleich Null, so handelt es sich um Sondertasten (Cursortasten, 
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PgUp, PgDn u.s.w.), die über ihren Scancode identifiziert werden. 
In diesem Fall liefert readkey beim zweiten Aufruf den Scancode 
der Taste. Bei direkten Zugriffen auf den Tastaturpuffer ist immer zu 
beachten, daß der ASCII-Code für Sondertasten dort keineswegs 
Null sein muß. Oft handelt es sich stattdessen um ASCII 224 oder 
ASCII 225. Welcher Wert für eine Sondertaste benutzt wird, läßt sich 
dem dritten Tastatur-Flag des BIOS-Datenbereichs entnehmen. 


Tastatur und BIOS-Datenbereich 


Folgende Adressen im BIOS-Datenbereich betreffen die Tastatur: 


Länge Inhalt 


Adresse 

40h: 17h Byte 
40h: 18h Byte 
40h: 19h Byte 
40h: 1Ah Wort 
40h: ICh Wort 
40h: 1Eh...3Dh 
40h:96h Byte 
40h:97h Byte 


Statusflag 1 
Statusflag 2 


Über ALT-ASCII-Nummer eingegebenes 
Zeichen 


Offset des Anfangs vom Tastaturpuffer 
(Segment = 40h D 


Offset des Ende vom Tastaturpuffer 
Tastaturpuffer 

Statusflag 3 

Statusflag 4 


Die Statusflags der Tastatur aus dem BIOS-Datenbereich sind dabei 
folgendermaßen belegt: 


Flag 1 an Adresse 40h:17h 


Bit Bedeutung, wenn gesetzt 


NOAWNMKMDNDKHDO 


Rechte Shift-Taste gedrückt 

Linke Shift-Taste gedrückt 

Eine Ctrl- (= Strg) Taste gedrückt 

Eine Alt-Taste ist gedrückt 

Scroll-Lock eingeschaltet 

Caps-Lock eingeschaltet (permanente Großbuchstaben) 
Num-Lock eingeschaltet 

Insert-Lock aktiv (Einfügemodus) 
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Flag 2 an Adresse 40h:18h 

Bit Bedeutung, wenn gesetzt 

0 Linke Ctrl-Taste gedrückt 

1 Linke Alt-Taste gedrückt 

2 _ SysRequest-Taste gedrückt (PrtScr) 
3 _ Pause-Key wurde gedrückt 

4 _ Scroll-Lock-Taste ist gedrückt 

5 _ Num-Lock-Taste ist gedrückt 

6 _Caps-Lock-Taste ist gedrückt 

7  Insert-Taste ist gedrückt 


Flag 3 an Adresse 40h:96h 


Bit Bedeutung, wenn gesetzt 


0 _ ASCII-Zeichen für Null = 225, d.h. bei readkey=#0 steht im 
Tastaturpuffer ASCII 225 und nicht ASCII 0 !! 


1 _ ASCII-Zeichen für Null = 224, d.h. bei readkey=#0 steht im 
Tastaturpuffer ASCII 224 und nicht ASCII O !! 
2 _ Rechte Ctrl-Taste ist gedrückt 


3 _ Rechte Alt-Taste (ALT GR) ist gedrückt 
4 Tastatur mit 101/102 Tasten installiert 


Flag 4 an der Adresse 40h:97h 


Bit Bedeutung, wenn gesetzt 
0 _ Scroll-Lock-Indikator 

1 Num-Lock-Indikator 

2 Caps-Lock-Indikator 


Zusätzlich zum Hardware-Interrupt 9 wird bei AT-Rechnern ein Soft- 
ware-Interrupt 15H mit AH = 4Fh ausgelöst. In AL wird dann der 
Scancode der Taste übergeben. Anwendungsprogramme können 
sich hier einhängen, wenn sie z.B. erfahren wollen, wann eine Ta- 
ste losgelassen wird. 

Das Programm kann sich natürlich auch direkt in den Hardware- 
Interrupt eins (System-Interrupt neun) einhängen, wie dies z.B. 
auch in der Turbo-Vision geschieht. 
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Die Tastatur-Interrupts 


Das BIOS des PC stellt über Interrupt 16h eine Reihe sehr nützlicher 
Funktionen zur Verfügung. Auch der DOS-Interrupt 21h enthält 
Funktionen, die das Keyboard abfragen. Diese sind zwar weniger 
flexibel als die des Interrupt 16h, haben aber z.B. den Vorteil, daß 
das Ctrl-Break-Flag überprüft wird und der Ms-Dos-Idle-Interrupt 
28h in einer Warteschleife aktiviert wird, so daß TSR-Programme die 
Zeit bis zur Reaktion des Anwenders nutzen können (vergl. Kapitel 


13). 
Interrupt 16H, Funktion 0: ’Read Keyboard’ 


IN: 
AH: 00H 
OUT: 
AH: Scancode 
AL: Asciicode 


Anm.: Das Zeichen wird bei diesem Aufruf aus dem Puffer entfernt. 


Interrupt 16H, Funktion 1: ’Get Keyboard Status’ 
IN: 

AH: 01H 
OUT: 

Zeroflag: 1: Kein Zeichen im Puffer 

0: Zeichen liegt vor: 
AH: Scancode 
AL: ASCII-Code 


Anm.: Die Zeichen werden nicht aus dem Puffer entfernt. Es han- 
delt sich also um eine Abfrage wie bei der CRT-Funktion Keypres- 
sed, jedoch mit der Möglichkeit, bei vorliegendem Zeichen dieses 
bereits zu erhalten. 


Interrupt 16H, Funktion 2: ’Get Shift-Flag’ 


IN: 
AH: 02h 
OUT: 
AL: Keyboard-Flag 1 


AH: Keyborad-Flag 2 
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Interrupt 16H, Funktion 3: ’Set Repeat Rate’ 


IN: 
AH: 03H 
AL: 05H 
BL: Wiederholungs-Rate (Zeichen/Sekunde bei gedrückter 
Taste) 
BH: Delay-Time: 
00 250 ms 
01 500 ms 
10 750 ms 
11 1000 ms 
OUT: - 


Anm.: Die Delaytime ist die Zeit, die verstreicht, bis bei gedrückter 
Taste die Wiederholungsfunktion eingeschaltet wird. 


Interrupt 16h, Funktion 5: ’Store to Keyboard Buffer’ 


IN: 
AH: 05h 
CH: Scancode 
CL: Asciicode 
OUT: 


AL 0: Zeichen wurde im Tastaturpuffer gespeichert 


1: Zeichen konnte nicht gespeichert werden, da der Puffer 
voll ist 


Anm.: Die Funktion läßt sich dazu benutzen, softwareseitig "Tasten 
zu drücken’. Dies ist insbesondere für residente Hintergrundpro- 
gramme interessant, die dadurch mit dem Hauptprogramm 
’kommunizieren’ können. 
Interrupt 16h, Funktion 10h: ’Read Keyboard (MF-2)’ 
Die Funktion entspricht Funktion 0, speziell für die MF-2-Tastatur. 
Sie ist nicht bei allen BIOS-Versionen implementiert. Dasselbe gilt 
für Funktion 11h. 
Interrupt 16h, Funktion 12h: ’Get Extended Keyboard Flag’ 
IN: 

AH 12h 
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OUT: 
AL: Flag 1 
AH: Flag 2 


Die Keyboard-Funktionen des Interrupt 21H 

Die folgenden Funktionen werden von Ms-Dos über Interrupt 21h 
bereitgestellt. Sie überprüfen weitestgehend die Eingabe auf Ctrl-C 
(Abbruch) und lösen ggf. den Interrupt 23h aus. Des weiteren wird 
während der Wartezeit auf eine Eingabe des Anwenders der Ms- 
Dos-Idle-Interrupt 28h aktiviert. 


Interrupt 21H, Funktion 1: ’Read Keyboard and Echo’ 


IN: 
AH: 01 
OUT: 
AL: gelesenes ASCII-Zeichen 


Anm.: Die Funktion sorgt dafür, daß ein eingelesenes Zeichen auf 
dem Bildschirm erscheint. 


Interrupt 21H, Funktion 6: ’Console Input/Output’ 


IN: 

AH: 06h 

DL: FFh = Zeichen lesen, sonst schreiben. 
OUT: 


Falls DL = FFH war: 
Ein gesetztes Zeroflag zeigt an, daß der Keyboard-Puffer leer war, 
sonst steht das gelesene Zeichen in AL. 


Interrupt 21H, Funktion 7: ’Read Keyboard, no Echo, no Ctrl- 
C-Break’ 


IN: 
AH: 07H 
OUT: 
AL: gelesenes Zeichen 
Interrupt 21H, Funktion 8: ’Read Keyboard’ 
IN: 
AH: 8 
OUT: 


AL: Zeichen 
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Anm.: Die Funktion entspricht der CRT-Funktion Readkey. Wird ei- 
ne Sondertaste gedrückt, so wird ASCII-Null zurückgegeben und 
erst beim zweiten Aufruf der Scancode der Taste. 


Interrupt 21H, Funktion 0Ah: ’Read String from Keyboard’ 


IN: 

AH: 0Ah 

DS:DX: Zeiger auf einen Puffer für den String. 
OUT: - 


Anm.: Der Puffer muß in den ersten beiden Bytes Platz für 
’Verwaltungsdaten’ bereithalten. Das erste Byte beschreibt die ma- 
ximale Anzahl von Zeichen, die der Puffer aufnehmen kann. Das 
zweite Byte ist für die tatsächlich gelesene Anzahl an Bytes zustän- 
dig. Daran schließt sich der eigentliche Zeichen-Puffer an. Die 
Funktion entspricht der Turbo-Pascal-Funktion 'ReadIn’, d.h. der zu 
übergebende String kann vom Anwender solange editiert werden, 
bis die Eingabe mit Return abgeschlossen wird. Das Return-Zeichen 
(ASCII 13) wird in den Puffer übertragen, aber bei der Zeichenzahl 


nicht berücksichtigt. 
Interrupt 21H, Funktion OBh: ’Get Keyboard Status’ 
IN: 
AH: 0Bh 
OUT: 
AL: Status = FFh, falls Zeichen vorhanden, sonst 0. 


Anm.: Entspricht weitgehend der Turbo-Pascal-Funktion ’Keypres- 
sed’. Welches Zeichen im Puffer vorliegt, wird nicht mitgeteilt. 


Interrupt 21H, Funktion 0Ch: ’Flush Keyboard Buffer and 


Read’ 
IN: 

AH: 0Ch 

AL Subfunktion (1,6,7,8,Ah) wie oben beschrieben. 
OUT: AL = 0 => Puffer ist leer. 


Anm.: Die Funktion leert den Tastaturpuffer, bevor die in AL selek- 
tierte Subfunktion aufgerufen wird. Enthält AL einen ungültigen 
Wert, so wird nur der Puffer geleert und AL enthält bei der Rück- 
kehr eine Null. 
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Einige dieser Funktionen sind in der UNIT KEYBOARD deklariert. 
Das Programm KBD_DEMO.PAS demonstriert die Keyboard-Funk- 
tionen weitgehend. 


Die Tastatur-Ports 


Weitere Funktionen, die der Tastaturprozessor übernimmt, sind das 
Ein- und Auschalten des Lautsprechers über Port 61h. Bit O von Port 
61h startet Timerkanal 2, und Bit 1 von Port 61h schaltet den Laut- 
sprecher an den Ausgang von Timerkanal 2. Will man also den 
Lautsprecher benutzen, so sind beide Bits zu setzen. Will man den 
Lautsprecher ausschalten, so sind diese Bits zu löschen. 


Außerdem wird über den Tastatur-Prozessor die Adressleitung A20 
(bei 80286 und höher) aktiviert. Der Treiber HIMEM.SYS übernimmt 
diese Arbeit (vergl. Kapitel 11). Der Adressbereich von FFFFh:000Fh 
bis FFFFh:FFFFh (High Memory Area, HMA) wird auf diese Weise 
direkt aus dem Real Mode ansprechbar. Beim 8086 konnte dieser 
Bereich nicht adressiert werden, da der Überlauf in die 21. Adress- 
leitung nicht möglich war. Da ab dem 80286er 24 oder mehr 
Adressleitungen zur Verfügung stehen, kann dieser Bereich von fast 
64KB ohne weitere Umstände benutzt werden, sobald die 21. 
Adressleitung aktiviert ist. Normalerweise wird der Bereich jedoch 
von Ms-Dos genutzt, wodurch Platz im unteren (normalen) Spei- 
cherbereich frei wird. 


Das Steuer-/Statusregister der Tastatur hat die Portadresse 64h. 
Wenn es beschrieben wird, fungiert es als Steuerregister und ist fol- 
gendermaßen belegt: 


Bit Bedeutung 

kein Interrupt nach Zeicheneingabe in Puffer 
Interrupt nach Zeicheneingabe 

System Status (0 = Reset) 

Tastaturfunktionen ein/aus 

Tastatur freigeben/sperren 
Normalmodus/Rohdaten als Code 

Werte unkonvertiert/konvertiert in IBM-Format 


NAUVHKMNDDNDHTO 


reserviert 


5.4 Die UNIT KEYBOARD 115 


5.4 


Bei einem Lesezugriff dient das Register als Statusregister mit fol- 
gender Belegung: 


Bit Bedeutung 
1 = Zeichen im Puffer vorhanden 


1 1 = Wert im Ausgabepuffer geändert 

2 _ System Status ( 0 = Reset) 

3 0 = Letzte Eingabe auf Eingaberegister (60h) 
1 = Letzte Eingabe auf Steuerregister (64h) 

4 0/1 = Tastatur gespertt/freigegeben 

5 0 = Datenübertragung OK 

6 1 = Time Out bei Datenübertragung 

7 1 = Paritätsfehler bei Datenübertragung 

Die UNIT KEYBOARD 


Die UNIT KEYBOARD implementiert alle wichtigen Tastaturfunktio- 
nen. Natürlich ist sie nur für Programme von Interesse, die nicht mit 
der Turbo Vision erstellt werden, da die Vision ja bereits alle Ereig- 
nisse sammelt. 


Da die Implementation genau genommen keine Neuigkeiten bietet, 
wird hier nur das Interface abgedruckt. Der vollständige Quelltext 
befindet sich auf der beiliegenden Diskette. 


(eesesnsnensekanaaaeeck ee) 


{ Copyright (c) Christian Baumgarten, Hamburg 1993 } 
{ Turbo-Pascal 7.0 Unit für Keyboard-Funktionen } 
(eeseeessinnsnnnaaaaee aaa) 
UNIT KEYBOARD; 

INTERFACE 


function getkey(var scancode:byte):char; 

procedure setkey(c:char:s:byte): 

function keydown(var c:char;var scan:byte):boolean; 
function shiftstate:word: 

function shiftkeypressed:boolean; 

function InsLocked:boolean; 

function ScrollLocked:boolean; 

function NumLocked:boolean; 

function CapsLocked:boolean; 


116 5 Die Tastatur 


function ShiftRight:boolean; 
function ShiftLeft:boolean; 
function shift:boolean; 


function Ctr]:boolean; 
function CtrlRight:boolean; 
function CtrlLeft:boolean; 


function Alt:boolean; 
function AltRight:boolean; 
function AltLeft:boolean; 


function Caps:boolean; 
function Num:boolean; 
function Scroll:boolean; 


procedure NumOn; 
procedure NumOFF; 
procedure CapsON; 
procedure CapsOFF; 
procedure Scro110N; 
procedure Scroll0FF; 


IMPLEMENTATION 
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Es gibt eine ganze Reihe verschiedener Mäuse für den PC. Ihnen 
allen gemeinsam ist jedoch (zum Glück) die Schnittstelle des Maus- 
Interrupt 33h. Über diesen Interrupt kommuniziert das Programm 
mit der Maus. Sie soll daher im folgenden beschrieben werden. 

Die Maus besteht aus der Sicht des Programmierers aus einer X- 
und Y-Koordinate,- dem aktuellen Tastenzustand und den Tasten- 
drücken und -Freigaben. 


Die Mauskoordinaten, die der Treiber übermittelt, sind stets Gra- 
phikkoordinaten. Sie beginnen bei (0,0) in der linken oberen Ecke 
und enden je nach Videomodus und -Karte bei (639,199) 
(639,479). Im Textmodus wird immer eine Zeichenbox von 8x8 
vorausgesetzt, d.h. die Koordinaten haben eine Schrittweite von 
acht, so daß sie im 80 x 25 - Textmodus bis (639,199) reichen. 


Der Mauscursor 


Im Textmodus gibt es zwei grundverschiedene Mauscursor: Den 
Hardware-Cursor und den Software-Cursor. Der Hardware-Cursor ist 
identisch mit dem normalen, blinkenden Textcursor, der dann aber 
gleichzeitig von der Maus und der Tastatur gesteuert wird. Der 
Softwarecursor ist von dem normalen Textcursor unabhängig und 
besteht aus zwei Masken, mit denen der Maustreiber Zeichen und 
Attribut (Farbe) an der aktuellen Mausposition manipuliert, um die 
Maus sichtbar zu machen. Die eine Maske ist eine UND-Maske, die 
andere eine XOR-Maske, d.h. der Maustreiber nimmt Zeichen und 
Attribut an der aktuellen Mausposition, verknüpft diese zuerst 
(bitweise) logisch UND mit der UND-Maske und danach logisch 
XOR mit der XOR-Maske. Das Ergebnis wird in den Bildschirmspei- 
cher geschrieben. Da der Maustreiber sich den ursprünglichen Zu- 
stand des Bildschirms merkt, um ihn bei einer Bewegung der Maus 
restaurieren zu können, so ist es notwendig, den Mauscursor auszu- 
schalten, bevor ein neues Zeichen oder Attribut an der Mausposi- 
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tion in den Bildschirm geschrieben wird. (Sonst würde der Maus- 
treiber bei der Bewegung der Maus das neue Zeichen durch das al- 
te ersetzen.) 


Der graphische Mauscursor entspricht dem Sortwarecursor weitge- 
hend, nur daß die Masken hier aus 16 x 16 Pixel großen 
(zweifarbigen) Bitmaps bestehen, die mit dem Bildschirminhalt ver- 
knüpft werden. 


Sowohl der (Software-) Textcursor als auch der Graphikcursor las- 
sen sich mit Hilfe der Funktionen des Interrupt 33h neu definieren. 


In vielen Büchern wird das Gerücht verbreitet, daß die Mäuse den 
Graphikmodus der Herculeskarte nicht unterstützen. Dies ist nur 
bedingt wahr. Natürlich konnte ich nicht alle Mäuse ausprobieren, 
aber von der Genius-Maus weiß ich mit Sicherheit, daß sie den 
Hercules-Graphikmodus problemlos unterstützt, wenn das Video- 
modus-Byte im BIOS-Datenbereich (40h:49h) nach dem Wechsel in 
den Graphikmodus und vor dem Initialisieren der Maus auf den 
Wert sechs (eigentlich 640 x 200 - CGA - Modus) gesetzt wird. 
(Natürlich muß der Wert vor Beenden des Graphikmodus auf sie- 
ben - den Wert für den monochromen Textmodus - zurückgesetzt 
werden.) 


Die Funktionen des Mausinterrupt 33h 


Bei allen Funktionen des Interrupt 33h wird die Funktionsnummer 
in AX übergeben; die Koordinaten sind immer Graphikkoordinaten. 
Sie müssen deshalb im Textmodus noch jeweils durch 8 geteilt 
werden. 


Interrupt 33h, Funktion 0: ’Get Installation Status/Mouse Init’ 


IN: 
AX: 0 
OUT: 
AX: 0: kein Treiber installiert 
FFh: Treiber installiert 
BX: Anzahl der Maustasten 


Anm.: Diese Funktion ist auch dann implementiert, wenn kein 
Maustreiber installiert ist, so daß der Aufruf unbedenklich ist. Dies 
ist z.B. beim EMS-Treiber nicht ganz so selbstverständlich (vergl. 
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Kapitel 11). Zugleich wird die Maus mit diesem Aufruf initialisiert. 
Etwaige Einstellungen des Anwenderprogramms (wie spezielle 
Mauscursor) gehen verloren. 

Wechselt das Anwenderprogramm jedoch den Bildschirmmodus, so 
ist der Aufruf erneut notwendig, damit der Maustreiber sich auf den 
neuen Modus einrichten kann. 


Interrupt 33h, Funktion 1/2: ’Show/Hide Mouse Cursor’ 


IN: 
AX: 1/2 für Show/Hide 
OUT: - 
Interrupt 33h, Funktion 3: ’Get Status’ 
IN: 
AX: 3 
OUT: 
cx: X-Koordinate der Maus 
DX: Y-Koordinate der Maus 
BX: Tastenstatus 


Anm.: Der Tastenstatus ist (nicht nur bei diesem Aufruf) folgender- 
maßen belegt: 


Bit Bedeutung, wenn gesetzt 
0 Linke Taste ist gedrückt 
1 Rechte Taste ist gedrückt 
2 Mittlere Taste ist gedrückt (falls vorh.) 


Interrupt 33h, Funktion 4: ’Set Mouse Position’ 


IN: 
AX: 4 
cX: X-Koordinate 
DX: Y-Koordinate 


OUT: - 
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Interrupt 33h, Funktion 5: ’Get Status when Button was pres- 


IN 

AX: 5 

BX: 0/1/2 = linke/rechte/mittlere Maustaste 
OUT: 

cx: X-Position beim letzten Tastendruck 

DX: Y-Position beim letzten Tastendruck 

BX: Anzahl der Drucke seit der letzten Abfrage 

AX: Aktueller Tastenstatus (wie oben) 


Interrupt 33h, Funktion 6: ’Get Status when Button was relea- 
sed’ 


IN: 
AX: 6 
BX: 0/1/2 = linke/rechte/mittlere Maustaste 
OUT: 
cx: X-Position bei der letzten Tastenfreigabe 
DX: Y-Positon bei der letzten Tastenfreigabe 
BX: Anzahl der Freigaben seit dem letzten Aufruf 
AX: Aktueller Tastenstatus 


Interrupt 33h, Funktion 7/8: ’Set X/Y-Koordinate-Range’ 


IN: 
AX: 7/8 für X/Y 
cx: Minimale X/Y-Koordinate 
DX: Maximale X/Y-Koordinate 
OUT: - 


Anm.: Mit Hilfe dieser Funktionen wird der Bereich, in dem sich der 
Mauscursor frei bewegen kann, eingegrenzt. 
Interrupt 33h, Funktion 9: ’Define Graphik Cursor Mask’ 
IN: 
AX: 9 
BX: Relative X-Position des Hot Spot 
CcX: Relative Y-Position des Hot Spot 
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ES:DX: Zeiger auf einen Datenbereich mit zwei Puffern zu je 
16 Worten. 

OUT: - 

Anm.: Der erste Datenbereich von 16 Worten definiert den Bild- 
schirm-Hintergrund (UND-Verknüpfung), der zweite Bereich den 
Mauscursor (XOR-Verknüpfung). Der Cursor besteht aus 16 x 16 Pi- 
xeln. Der Hotspot ist derjenige Punkt in der Cursormaske, auf den 
diese genau zeigt. Wird ein Wert von (0,0) festgelegt, so befindet 
sich der Hotspot in der linken oberen Ecke. 


Interrupt 33h, Funktion 0Ah: ’Define Textcursor Symbol’ 


IN: 
AX 0Ah 
BX 0 = Software-Cursor 
1 = Hardware-Cursor (Die Maus bewegt den 
Bildschirm-Textcursor) 
Falls BX = 0: 
CH: Farbe der Bildschirmmaske 
CL: ASCII-Zeichen der Bildschirmmaske 
DH: Farbe der Cursormaske 
DL: ASCII-Zeichen der Cursormaske 
Falls BX = 1: 
cx: Erste Rasterzeile des Cursors 
DX: Letzte Rasterzeile des Cursors 
OUT: - 


Anm.: Die Bildschirmmaske wird beim Software-Textcursor mit Zei- 
chen und Attribut im Bildspeicher logisch AND verknüpft; das Er- 
gebnis wird mit der Cursormaske logisch XOR verknüpft. 


Interrupt 33h, Funktion OBh: ’Get Relativ Move’ 


IN: 
AX: 0Bh 

OUT: 
cx: Relative X-Verschiebung seit der letzten Abfrage 
DX: Relative Y-Verschiebung seit der letzten Abfrage 


Anm: Die Rückgabewerte geben die relative Verschiebung an und 
sind daher vorzeichenbehaftet. 
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Interrupt 33h, Funktion 0Ch: ’Set User-Event-Routine’ 
IN: 

AX: Och 

cXx: Aktivierungsbedingungen 

ES:DX: Adresse einer Service-Routine, die vom Maustreiber 

per FAR CALL aktiviert werden soll. 

OUT: - 
Anm.: Jedes halbwegs vernünftige Programm benutzt ausschließlich 
diese Routine, um sich über Position und Tastenzustand der Maus 
zu informieren (bzw. informieren zu lassen), da in diesem Fall eine 
zyklische Abfrage des Mauszustandes überflüssig wird. Die Aktivie- 
rungsmaske hat folgende Belegung: 
Bit Bei gesetztem Bit erfolgt die Aktivierung bei: 
0 Bewegung der Maus 
1/2 Tastendruck/-freigabe links 
3/4 Tastendruck/-freigabe rechts 
4/5 _ Tastendruck/-freigabe der mittleren Taste 


Die Routine wird über einen FAR CALL aktiviert. Sie sollte so gestal- 
tet sein, daß sie das DS-Register sichert und vor der Rückkehr re- 
stauriert. Der Treiber übergibt der Routine bei Aufruf in den CPU- 
Registern folgende Informationen: 
AX: Grund des Aufrufs (wie bei der Maske) 
BX: Akt. Zustand der Maustasten 
cx: X - Koordinate des Mauscursors 
DX: _Y-Koordinate des Mauscursors 
SI: horizontale Auflösung in Pixeln 
DI: vertikale Auflösung in Pixeln 
Interrupt 33h, Funktion 0Dh/0Eh: ’Lightpen Emulation 
ON/OFF’ 
IN: 
AX: ODh/0Eh für Lichtgriffelemulation ein/aus 
OUT: - 
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Interrupt 33h, Funktion OFh: ’Set Mouse Sensitivity’ 


IN: 
AX: OFh 
c: Schrittweite X (1-7FFFH) in 1/200 Zoll für 8 Pixel 
DX: Schrittweite Y (1-7FFFH) in 1/200 Zoll für 8 Pixel 
OUT: z 


Anm.: Wird jeweils der Wert 1 gesetzt, so muß die Maus um 1/200 
Zoll bewegt werden, damit sich der Cursor um 8 Pixel bewegt, also 
um 8/20 Zoll (1 cm) für 640 Pixel. Dies ist die größtmögliche Emp- 


findlichkeit. 
Interrupt 33h, Funktion 10h: ’Disable Cursor in Special Range’ 
IN: 
AX: 10h 
cx: X-Koordinate (oben links) 
DX: Y-Koordinate (oben links) 
SI: X-Koordinate (unten rechts) 
DI: Y-Koordinate (unten rechts) 
OUT: - 


Anm.: Der Cursor wird ausgeschaltet, sobald er in das definierte 
Bildschirmfenster bewegt wird. Danach ist der Maus-Cursor unsicht- 
bar und muß erst mit Funktion eins wieder eingeschaltet werden. 


Interrupt 33h, Funktion 13h: ’Define Speed Threshold’ 


IN: 

AX: 13h 

DX: Schwellen-Geschwindigkeit in Schritten/Sekunde 
OUT: - 


Anm.: Der definierte Wert besagt, daß die Geschwindigkeit des Cur- 
sors verdoppelt wird, sobald die Bewegung der Maus eine Schwel- 
lengeschwindigkeit überschreitet. 


Interrupt 33h, Funktion 14h: ’Swap Event Handler Routine’ 


IN: 
AX: 14h 
cX: Call Maske 


ES:DX Neue Adresse 
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OUT: 

cx: Alte Call Maske 

ES:DX: Alte Adresse 
Anm: Aufrufmaske und Parameter entsprechen den Konventionen 
der Funktion OCh. 


Interrupt 33h, Funktion 15h: ’Return Driver Storage Size’ 


IN: 
AX: 15h 
OUT: 
BX: Puffergröße in Byte 


Anm.: Wird für die Funktion 16h benötigt, um die Größe des Puffers 
zu erfragen, den der Treiber benötigt, um seinen aktuellen Zustand 
zu sichern. 
Interrupt 33h, Funktion 16h: ’Save Driver State’ 
IN: 

AX: 16h 


ES:DX Zeiger auf einen Puffer der (mit Funktion 15h) 
ermittelten Größe 


OUT: - 
Interrupt 33h, Funktion 17h: ’Restore Driver State’ 
IN: 

AX: 17h 


ES:DX: Zeiger auf den Puffer mit den gesicherten Daten 
OUT: - 
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Der Bildschirm ist für den PC mehr als ein Ausgabemedium. Da der 
PC weitgehend als interaktives Arbeitsmittel eingesetzt wird, kann 
man sagen, daß der PC (oder die Software) am Bildschirm stattfin- 
det. Man möchte fast sagen, daß der Bildschirm die Existenz des PC 
darstellt. Programme, die sich heutzutage am Bildschirm nicht or- 
dentlich darzustellen vermögen (einmal von den unersätzlichen 
Kommandozeilenprogrammen abgesehen), sind bei den Anwendern 
mit Sicherheit sofort unbeliebt. Die ansprechende Darstellung eines 
Programms am Bildschirm ist somit nicht mehr Nebensache oder 
bloße Zierde, sondern Grundlage der Programmierung interaktiver 
Software. Mit der Turbo Vision bietet sich nun auch unter Turbo 
Pascal eine normierte und flexible Oberfläche an, so daß sich der 
Aufwand für den Programmierer diesbezüglich in Grenzen hält. 
Dennoch oder gerade deshalb ist es wichtig, zu wissen, wie die 
Darstellung am Bildschirm funktioniert. Dieses Kapitel befaßt sich 
(fas) ausschließlich mit der Textdarstellung. Die verschiedenen 
Graphikmodi werden in den folgenden Kapiteln besprochen. 


Der Videospeicher im Textmodus 


Im Textmodus enthält der Videospeicher für jedes darzustellende 
Zeichen ein Wort. Dieses Wort enthält im Lo-Byte das ASCII- 
Zeichen, das Hi-Byte ist das sogenannte ’Attributbyte’ des jeweiligen 
Zeichens. Es beschreibt die Art und Weise, wie das Zeichen darzu- 
stellen ist. In den 80-Spalten-Modi enthält der Videospeicher in den 
ersten 160 Byte die Zeichen und Attribute der ersten Zeile, in den 
160 Bytes ab Offset 160 die der zweiten Zeile u.s.w. Bei 25 Zeilen 
werden somit 25 * 160 = 4000 Byte für eine Textseite benötigt, so 
daß stets mehrere Textseiten im Videospeicher Platz finden, da die 
Herculeskarte z.B. 64KB Speicher zur Verfügung stellt und EGA 
bzw. VGA sogar noch mehr. (Bei der Herculeskarte nützt dies nur 
nichts, da die Seiten nicht umgeschaltet werden können.) Bei der 
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EGA- u. VGA-Karte können jedoch bis zu acht Textseiten nicht nur 
im Speicher gehalten werden, sondern auch über das BIOS umge- 
schaltet werden. Der Offset der zweiten Textseite ist (bei 80 x 25 
Zeichen) um 4096 Byte (4KB) höher als derjenigen der ersten u.s.w. 


Turbo Pascal unterstützt die Seitenumschaltung nicht. Sowohl die 
UNIT CRT als auch die Turbo Vision benutzen stets nur die Seite 
null. 


Bei den Textmodi liegt die Basisadresse des Videospeichers bei 
B8000h, wobei Videomodus sieben, der speziell für monochrome 
Grafikkarten reserviert ist, mit der Basisadresse bei B0000h die 
Ausnahme bildet. Borland Pascal stellt für den direkten Zugriff auf 
den Videospeicher im Protected Mode die Selektoren SegB000 und 
SegB800 zur Verfügung. 


Für die Belegung des Attributbytes gilt im Farbmodus: 


Bits 7654321 
BHHH 


0 
VVVV 


B: 0: Statische Darstellung des Zeichens 
1: Blinkende Darstellung des Zeichens 

H: Hintergrungfarbe (0..7) 

V:  Vordergrundfarbe (0..15) 


Man sieht an der Codierung des Attributbytes, daß die Textdarstel- 
lung auf maximal 16 Farben (jeweils für Vorder- und Hintergrund) 
beschränkt ist. Auf der EGA-/VGA-Karte läßt sich die Bedeutung des 
B-Bits umschalten. So kann es wahlweise auch als höchstes Farbbit 
benutzt werden. Ähnliches gilt für das höchste Bit der Vordergrund- 
farbe. Seine Bedeutung kann derart modifiziert werden, daß es zur 
Auswahl des Zeichensatzes dient. Wird es derart genutzt, so stellt 
sich allerdings heraus, daß die Helligkeit der beiden Zeichensätze 
differiert. Das liegt daran, daß das höchste Farbbit der Vordergrund- 
farbe eigentlich für die Helligkeit zuständig ist. Um bei Verwendung 
von zwei Zeichensätzen eine gleichmäßige Helligkeit zu bekom- 
men, müssen somit die Farbregister der EGA-/VGA-Karte umpro- 
grammiert werden (siehe Kapitel 8.3). 


Die vier Farbbits des Attributbytes haben in der Standard-EGA- 
Belegung folgende Bedeutung: 
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Wert Farbe 

0: Schwarz 

1: Blau 

2: Grün 

3: Cyan (Türkis) 
4: Rot 

5: Magenta (Violett) 
6: Braun 

7: Hellgrau 

8: Grau 

9: Hellblau 


10: Hellgrün 
11: Helles Cyan 


12: Hellrot 

13: Hellmagenta 
14: Gelb 

15: Weiß 


Und im monochromen Modus: 


Bits 76543210 
BxxxHyyy 
B: wie oben 
H: Helligkeitsbit 0: Normal (’Normvideo’) 
1: Erhöhte Helligkeit (Highvideo’) 
Für die Bits xxx und yyy gilt folgende Belegung: 


xxx = 7 und yyy = 0: Invertierte Darstellung (erhöhte Helligkeit 
wird ignoriert) 


xxx = OQ und yyy = 1: Unterstrichene Darstellung 
xxx = Q und yyy = 0: Schwarz (zur Darstellung untauglich) 


Alle anderen Codes repräsentieren hell auf dunkel. 


Der monochrome Modus erlaubt also ebenfalls einige 'Farben’, und 
zwar genau fünf (jeweils mit und ohne Blinken): 
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- Normal: z.B. 07h 
- Hell: z.B. OFh 
- Unterstrichen 01h 
- Unterstrichen + Hell 09h 
- Invertiert 70h 


(Leider gibt es nur eine invertierte Darstellungsart) 


Die Videomodi 


Der Textmodus kennt im wesentlichen zwei Betriebsarten, die von 
Interesse sind, die monochrome und die mit 16 Farben. Die mono- 
chrome Betriebsart entspricht dem Videomodus zwei (EGA/VGA) 
bzw. sieben (HERCULES), der Farbmodus dem BIOS-Videomodus 
drei. Die EGA- und VGA-Karte gestatten allerdings durch die Wahl 
eines anderen Zeichensatzes auch andere Textauflösungen. So 
erhöht sich die Auflösung bei einer 8 x 8 - Zeichenbox auf 43 (bei 
350 Scanzeilen) bzw. 50 ( bei 400 Scanzeilen). Praktisch unterstützt 
jeder Graphikadapter einen dieser Textmodi. Daneben gibt es auf 
neueren Graphikkarten meist noch eine Fülle nicht einheitlicher 
Textmodi höherer Auflösung. Da es hier aber wie gesagt keine 
Norm gibt, die sich verbindlich durchgesetzt hat, so bleiben diese 
Modi meist ungenutzt, da die Portabilität von Programmen den 
Vorzug erhält. 


Tabelle 7.1 zeigt die normierten Bildschirmmodi der klassischen 
Graphikadapter des PC. Tabelle 7.2 zeigt als Beispiel die weiteren 
Videomodi einer älteren 512KB-Quadtel-TVGA-Karte, Tabelle 7.3 
die Videomodi einer (ziemlich neuen) 1MB-Tseng-ET4000-VGA- 
Karte. 


Allen Textmodi (bei welcher Auflösung auch immer) ist aber bis 
jetzt die Speicherung eines Zeichen als ASCII-Byte und Attribut-Byte 
gemein, so daß es im Prinzip kein allzu großes Problem darstellt, 
die Textdarstellung auf andere Modi zu übertragen, sobald nur ihre 
Modusnummer bekannt ist. Die weiteren Parameter wie Zeilen- und 
Spaltenzahl (sowie Zeichenhöhe und Speicheroffset) lassen sich 
über das BIOS ermitteln. 
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8 x 14 | CGA/EGA/VGA 


senuunen [o |» Imazı [mon sm Inc [1 fcasamen 
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m. | 


640 x 350 


80 x 25 |640 x 400 8 x 16 | CGA/EGA/VGA 


an 2 25 [seo »200 [ze |u» 
20 x 200 [a en 


(Der Hercules-Graphikmodus wird vom BIOS nicht unterstützt und 
hat daher auch keine Modusnummer) 


Die Zeichenbox ist in vielen Textmodi neun Pixel breit. Dies scheint 
ungewöhnlich zu sein, beruht aber auf einem simplen Trick. Da 
zwischen den Textzeichen sowieso mindestens eine leere Spalte 
stehen muß, so kann diese Spalte im Prinzip auch durch die Hard- 
ware erzeugt werden. Damit bleibt die Zeichenbox acht Pixel breit, 
aber die Darstellung der Zeichen am Bildschirm wird mit Hilfe der 
Hardware auf neun Pixel erweitert. Bei den Graphikzeichen des 
erweiterten ASCII-Zeichensatzes wird dann einfach die achte Spalte 
in die neunte ’verlängert’, so daß die Rahmen und Balken nicht 
’zerhackt’ aussehen. Ein 9x14-Zeichensatz besteht somit aus einem 
8x14-Zeichensatz und der Annahme, daß die Hardware ihn in der 
genannten Art und Weise darstellt. 


Ob die erweiterten Videomodi der verschiedenen Graphik-Karten 
initialisiert werden können, hängt jedoch nicht allein von der Gra- 
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phikkarte ab, sondern natürlich auch von dem Auflösungsvermögen 
und der maximalen Horizontalfrequenz des verwendeten Monitors, 
da diese darüber entscheidet, wie viele Scanzeilen der Monitor pro 
Sekunde darstellen kann. 


G/T Graphik- 
Be auflösung 


128x30 |1024 x 480 
128x30 | 1024 x 480 


Ist die realisierbare Horizontalfrequenz nicht hoch genug, so kann 
der Monitor den entsprechenden Modus entweder gar nicht oder 
nur mit einer ungenügenden Bildwiederholfrequenz darstellen. 
Hierauf ist bei der Anschaffung eines neuen Monitors also ganz 
besonders zu achten. Denn eine Bildwiederholfrequenz (Vertikal- 
frequenz) von wesentlich weniger als 70 Hz muß als ungenügend 
angesehen werden, da das Auge helle Flächen dann als flackernd 
wahrnimmt. Hat der Monitor z.B. eine maximale Horizontalfrequenz 
von 35 KHz, so kann er bei einer Vertikalfrequenz von 70 Hz 
maximal 500 Scanzeilen darstellen (In der Praxis sind es etwas 
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Tabelle 7.3: 
Einige erwei- 
terte Videomodi 
einer 1MB- 
ET4000-VGA- 
Karte 


7,3 


weniger, da eine gewisse Anzahl Randzeilen eingerechnet werden 


müssen). 
Dad BY ra 
lösung auflösung 
Er 
1 


00x00 [00x40 


E 


6 
6 
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2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 


21h 
22h 
3h 
4h 
5h 
h 
9h 
Dh 
Eh 
Fh 
Oh 
7h 
8h 
Dh 


3 


Im 80 x 25 - Textmodus unterscheiden sich die verschiedenen Kar- 
ten wesentlich nur dadurch, daß die EGA-/VGA-Karten die Installa- 
tion eigener Fonts erlauben, während dies CGA, MDA und HGC 
nicht erlauben. Es ist bei der Nutzung der BIOS-Funktionen darauf 
zu achten, daß das BIOS den Bildschirm mit den Koordinaten (0,0) 
oben links bis (79,24) unten rechts versieht, während etwa die 
UNIT CRT die Koordinaten von (1,1) bis (80,25) laufen läßt. Die 
Zählung von Null ist programiertechnisch gesehen (nicht nur in die- 
sem Fall) einfacher, für einen Anfänger - und Pascal war ja ur- 
sprünglich als Lernsprache gedacht - aber etwas ungewohnt. Da die 
EGA-/VGA-Karte im Textmodus die Verwendung verschiedener Zei- 
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73.1 


chensätze vorsieht, diese Funktionen aber nur im EGA-/VGA-BIOS 
implementiert sind, so werden sie in Abschnitt 7.3.2 gesondert be- 
trachtet. 


Die allgemeinen Funktionen des Interrupt 10H 


Die allgemeinen Funktionen zur Bildschirmsteuerung sind Bestand- 
teil des Rechner-BIOS und damit auf allen PCs verfügbar. Bei spe- 
ziellen Graphikkarten wie der Herculeskarte werden jedoch manche 
Funktionen nicht unterstützt (wie etwa die Seitenumschaltung) oder 
sind gar nicht ausführbar (wie das Setzen eines nicht definierten Vi- 
deomodus). 


Interrupt 10h, Funktion 00h: ’Set Video Mode’ 


IN: 

AH: 00h 

AL: Modusnummer 
OUT: - 


Anm.: Der aktuelle Videomodus steht im BIOS-Datenbereich an der 
Adresse 40h:49h. 


Interrupt 10h, Funktion 01h: ’Set Cursor Size’ 


IN: 
AH: 01H 
CH: Startzeile 
CL: Endzeile 
OUT: - 


Anm.: Das Aussehen des Cursors läßt sich im Textmodus bekannt- 
lich variieren. Welche Werte für Startzeile und Endzeile sinnvoll 
sind, hängt jedoch von der verwendeten Zeichenbox ab. Bei einer 8 
x 8 Zeichenbox dürfen die Werte 0..7 eingesetzt werden, bei einer 8 
x 14 - Zeichenbox die Werte 0..13. Um den Cursor zu verstecken, 
ist der Wert CX = 2020h üblich, bei vielen Karten reicht es aber 
auch, wenn der Wert für die Startzeile über dem Wert für die End- 
zeile liegt. Beim VGA-Adapter werden die Bits 5 und 6 von CH als 
Steuerbits verwendet: 


00b: Normal 
01b: Versteckt (2020h setzt diesen Wert) 
10b: Langsames Blinken 


11b: Schnelles Blinken 
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Die aktuelle Cursorform steht auch im BIOS-Datenbereich. Die End- 
zeile an der Adresse 40h:60h, die Startzeile an der Adresse 40h:61h. 


Interrupt 10h, Funktion 02h: ’Set Cursor Position’ 


IN: 
AH: 02h 
BR: Bildschirmseite 
DL: Spalte 
DH: Zeile 
OUT: - 


Anm.: Die Werte dürfen im 80x25 Modus von 0..79 bzw. 0..24 lie- 
gen (im Gegensatz zur Turbo-Pascal-Konvention). Die Position des 
Cursors in acht Bildschirmseiten wird vom BIOS im BIOS-Datenbe- 
reich ab der Adresse 40h:50h abgelegt. Für jede Seite werden zwei 
Byte reserviert, wobei im ersten Byte die Spalte steht. 


Interrupt 10h, Funktion 03h: ’Get Cursor Position’ 


IN: 
AH: 03h 
BH: Seite 
OUT: 
DH: Zeile 
DL: Spalte 
CH: Startzeile Cursor 
CL: Endzeile Cursor 


Anm.: Der Cursor hat zwar auf allen Bildschirmseiten die gleiche 
Form, aber auf jeder Seite eine eigene Position. Siehe auch Funk- 


tion 2. 
Interrupt 10h, Funktion 05h: ’Select Active Page’ 
IN: 
AH: 05h 
AL: Seite (0..3 bzw. 0..7) 
OUT: - 


Anm.: Die Funktion wird bei der Herculeskarte nicht ausgeführt, da 
diese trotz ausreichenden Speicherplatzes (64KB) keine Seitenum- 
schaltung erlaubt. Obwohl die CRTC-Register die Interpretation na- 
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helegen, man könne die Seite durch eine Änderung der Startadresse 
umschalten, funktioniert dies meiner Erfahrung nach nicht, bzw. die 
Adresse läßt sich wohl umlegen, aber nicht weit genug. 

Die Nummer der gerade aktiven Bildschirmseite findet sich im 
BIOS-Datenbereich an der Adresse 40h:62h. 


Interrupt 10h, Funktion 06h/07h: ’Scroll Screen Area’ 


IN: 

AH: 06h (Scroll Up) 

07h (Scroll Down) 

AL: Anzahl d. Zeilen 

CH: Zeile oben links 

CL: Spalte oben links 

DH: Zeile unten rechts 

DL: Spalte unten rechts 

BH: Farbattribut für die Leerzeile 
OUT: - 


Anm.: Wird für AL Null eingesetzt, so wird der gewählte Bereich 
gelöscht, sonst wird der Test innerhalb des Bereichs um N Zeilen 
nach unten/oben gerollt und die entstehenden Leerzeilen mit Leer- 
zeichen gefüllt. 


Interrupt 10h, Funktion 01h: ’Get Char and Attribut at Cursor 
Position’ 


IN: 
AH: 08h 
BH: Seite 
OUT: 
AL: Zeichen 
AH: Attribut 


Interrupt 10h, Funktion 09h: ’Set Char and Attribut at Cursor 
Position’ 


IN: 
AH: 09h 
AL: Zeichen 
BH: Seite 
BL: Attribut 


cX: Anzahl der Kopien 
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Anm.: Die Steuerzeichen CR (ASCI 13: Carriage Return: Wagenrück- 
lauf), LF (ASCII 10: Line Feed: Zeilenvorschub) , BELL (ASCI 7), 
u.s.w. werden nicht als Steuercodes interpretiert, sondern als Zei- 
chen dargestellt. Der Cursor wird nicht mitgeführt ! 


Interrupt 10h, Funktion 0Ah: ’Set Character at Cursor Position’ 


IN: 

AH: O0Ah 

AL: Zeichen 

BH: Seite 

cX: Anzahl 
OUT: - 
Interrupt 10h, Funktion OEh: "Write Char (Teletype Modus)’ 
IN: 

AH: OEh 

AL: Zeichen 

BR: Seite 

BL: Farbe im Graphikmodus 
OUT: - 


Anm.: Steuerzeichen werden als solche interpretiert und ausgeführt, 
der Cursor wird mitgeführt. 


Interrupt 10h, Funktion OFh: ’Get Video Mode’ 


IN: 
AH: OFh 
OUT: 
AL: Modus 
AH: Bildschirmspalten 
BH: Aktive Seite 


Anm.: Der Wert für die aktuelle Zahl an Bildschirmspalten steht 
auch im BIOS-Datenbereich an der Adresse 40h:4Ah. Siehe auch 
Funktion null. 
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Interrupt 10h, Funktion 13h: ’Display String at Position (X,Y)’ 


IN: 
AH: 13h 
AL: Schreibmodus 
cXx: Anzahl der Zeichen im String 
DH: Zeile (Y) 
DL: Spalte (X) 
BH: Seite 
BL: Attributcode 
ES:BP Zeiger auf den String 
OUT: - 


Für den Schreibmodus gilt folgende Belegung: 


0: Normaler Modus: Alle Zeichen werden mit dem in BL übergebe- 
nen Attribut geschrieben. Steuerzeichen werden berücksichtigt, 
der Cursor wird nicht mitgeführt. 


1: Teletype-Modus: Steuerzeichen werden ausgeführt, der Cursor 
wird auf die Anfangsposition gesetzt und mitgeführt. 


2: Wie Modus 0, jedoch enthält der String für jedes Zeichen ein At- 
tributbyte: < Zeichen O0 , Attribut 0, Zeichen 1, Attribut 1, ...>, 
d.h. der Wert in BL ist ohne Bedeutung. Vorsicht: Steuerzeichen 
werden ohne Attributbyte interpretiert! 


3: Teletype-Modus, aber String enthält wie in Modus 2 abwechselnd 
Zeichen und Attribut. 


Anm: In Modus 2 und 3 zählt das CX-Register die Anzahl der Zei- 
chen und nicht die Pufferlänge in Byte. 


73.2 Die Zeichensatzfunktionen des EGA-/VGA-BIOS 


Bei der EGA- und VGA-Karte existieren noch Funktionen zur Mani- 
pulation des verwendeten Zeichensatzes, der Palettenregister sowie 
zum Einholen von Statusinformationen. Diese Funktionen stehen 
bei Adaptern ohne eigenes BIOS nicht zur Verfügung. Da die EGA- 
und die VGA-Karte über mehrere 64-KB-Speicherseiten verfügen, 
aber im Textmodus maximal eine Seite benötigt wird, um die Zei- 
chen und ihre Attribute zu speichern, so eröffnet sich die Möglich- 
keit, die anderen Seiten zur Speicherung von Zeichensätzen zu be- 
nutzen. Hierzu steht bei EGA und VGA die zweite Seite zur Verfü- 
gung. Da die Seite insgesamt 64 KB umfaßt, ist für 4 (EGA) bzw. für 
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Tabelle 7.4: 
Die Speicher- 
aufteilung der 
EGA-INGA- 
Karte für die 
Fonts 


maximal acht (VGA) Zeichensätze Platz, wenn maximal 32 Byte / 
Zeichen reserviert werden. Die Zeichensätze werden jeweils in ein- 
zelne Speicherblöcke gelegt, deren Länge 8192 Byte beträgt. Die 
Aufteilung der zweiten Speicherebene zeigt Tabelle 7.4. 

Für jedes Zeichen werden n Byte benutzt (wenn n die Zeichenhöhe 
ist), so daß in jedem Block die ersten n * 256 Byte die Zeichen- 
muster enthalten. Es gibt jeweils einen aktuell primären und einen 
aktuell sekundären Zeichensatz. Sie stehen in Block A und in Block 
B. Sind die Nummern dieser beiden Blöcke verschieden, so dient 
Bit Drei des Attributbytes zur Auswahl zwischen Block A und Block 
B. Bei Initialisierung der Karte sind Block A und B auf Null 
eingestellt, so daß nur der nullte Zeichensatz zur Darstellung ver- 
wendet wird. 

Da im gleichen Videomodus (sprich mit der gleichen Anzahl an Ra- 
sterzeilen) Zeichensätze verschiedener Zeichenhöhe installiert wer- 
den können, so besteht die Möglichkeit, die Anzahl der Textzeilen 
anzupassen oder nicht. Wird die Zahl nicht angepaßt, so füllt natür- 
lich ein 8 x 8 - Zeichensatz die Zeilen nicht aus, sondern sieht aus 


wie "hochgestellt. 


Ost von 
ooooh 
sooo 


Wird die Anzahl an Textzeilen an den Zeichensatz angepaßt, so 
nimmt eine Bildschirmseite u.U. mehr als 4KB Speicherplatz ein, so 
daß zum einen weniger Seiten zur Verfügung stehen und zum an- 
deren die Bildspeicherdaten der zweiten Seite bei der Zeichen- 
satzumschaltung verloren gehen können. Die Zeichensätze befinden 
sich in der EGA-/VGA-Speicherebene Eins. Ein direkter Zugriff auf 
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die Zeichensätze ist aufgrund der komfortablen BIOS-Funktionen 
meist unnötig. 

Interrupt 10h, Funktion 11h: ’Select Textmode Character Set’ 
Bei diesem Aufruf wird über das AL-Register eine Unterfunktion 
ausgewählt: 


Unterfunktion 0: ’Load User Font’ 


IN: 
AH: 11h 
AL: 0/1: Ohne/mit Zeilenanpassung 
BH: Byte/Zeichen 
BL: Blockauswahl 
cx: Anzahl der Zeichen, die neu geladen werden sollen 
DX: Offset in die Tabelle 
ES:BP: Zeiger auf die Tabelle 
OUT: - 
Unterfunktionen 1,2,4,11h,12h,14h: ’Load ROM Font’ 
IN: 
AH: 11h 
AL 1/11h: 8x 14 - Zeichensatz ohne/mit Zeilenanpassung 
2/12h: 8x 8 - Zeichensatz ohne/mit Zeilenanpassung 
4/14h: 8x 16 - Zeichensatz ohne/mit Zeilenanpassung 
BL: Nummer des Blocks (EGA: 0..3, VGA 0..7) 
OUT: - 
Unterfunktion 03h: ’Select Character Set’ 
IN: 
AX: 1103h 
BL: Blockauswahl: 
Bit 0,1,4: Zeichensatz Block A 
Bit 2,3,5: Zeichensatz Block B 
OUT: - 


Anm.: Die seltsame Form der Codierung in BL resultiert aus der 
Forderung, daß die VGA-Karte abwärtskompatibel zur EGA-Karte 
sein mußte. Bei der EGA-Karte sind nur die unteren vier Bits gültig, 
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da die Auswahl nur von Null bis Drei geht. Daher wurden die 
weiteren Bits ’oben angestückelt. 


Unterfunktion 21h: ’Install User Graphic Font’ 


IN: 
AX: 1121h 
BL: 0: Anzahl der Textzeilen steht in DL 
1: 14 Zeilen 
2: 25 Zeilen 
3: 43 Zeilen 
cX: Byte/Zeichen 
DL: Anzahl d. Textzeilen (wenn BL = 0) 
ES:BP: Zeiger auf Zeichensatz 
Out: - 


Anm.: In den Graphikmodi verfügt die EGA-/VGA-Karte nicht über 
ungenutzten Speicherplatz, so daß der Font nicht in den Videospei- 
cher geladen wird. Das BIOS notiert sich nur die Adresse des neuen 
Fonts. Der Speicherbereich des Fonts darf somit vom Programm 
nicht einfach für andere Zwecke weiterbenutzt werden! 


Unterfunktion 22h/23h/24h:’Load ROM Graphics Font’ 


IN: 
AH: 1lh 
AL: 22h: 8x 14 - Zeichensatz laden 


23h: 8x 8 - Zeichensatz laden 
24h: 8x 16 - Zeichensatz laden (nur VGA) 
BU/DL: Textzeilen wie bei Unterfunktion 21h 


OUT: - 
Unterfunktion 30h: ’Get Font Info’ 
IN: 

AX: 1130h 

BH: 0: INT 1FH - Zeichensatz 


1: INT 43H - Zeichensatz 
2: ROM 8 x 14 - Zeichensatz 
3. ROM 8x 8 - Zeichensatz 


140 


7.3.3 


7 Das Videosystem im Textmodus 


4: ROM 8 x 8 - Zeichensatz (ASCII 128-255) 

5: ROM 9 x 14 - Monochrom-Zeichensatz 

6: ROM 8 x 16 - Zeichensatz (nur VGA) 

7: ROM 9 x 16 - Monochrom - Zeichensatz (nur VGA) 


OUT: 
cx: Byte/Zeichen in aktivem Zeichensatz 
DI: Akt. Bildschirmtextzeilen (EGA) 


Akt. Bildschirmtextzeilen - 1 (VGA) 
ES:BP Zeiger auf den durch BH selektierten Zeichensatz 


Die Palettenauswahl bei der CGA-Karte 


Die Palettenfunktionen insbesondere der EGA- und VGA-Karte gel- 
ten nicht allein für den Textmodus. Sie sind genauso in den Farb- 
graphikmodi von Bedeutung. Aber dies ist nicht der Grund, warum 
sie erst in Kapitel 8 besprochen werden. Der Grund ist vielmehr, 
daß dem Verständnis der Palettenfunktionen die Kenntnis der EGA- 
/VGA-Register förderlich ist, die erst dort beschrieben werden. Hier 
also nur kurz und bündig die Palettenfunktion für den 4-Farbmodus 
der CGA-Karte. 


Interrupt 10h, Funktion OBh: ’Select Color Palette’ 


IN: 
AH: 0Bh 
BH: 0: Setzen der Hintergrundfarbe mit Wert in BL (0..15) 
1: Auswahl der Farbpalette durch den Wert in BL 
BL: 0: Grün,Rot,Gelb + Hintergrund 


1: Cyan, Magenta, Weiß + Hintergrund 


(und weitere) 
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Turbo Pascal bietet mit der UNIT GRAPH eine gut brauchbare 
Schnittstelle zur Programmierung aller gebräuchlichen Graphikkar- 
ten. Dennoch kann es manchmal entscheidend sein, etwas mehr 
über die Funktionsweise der Graphikkarte, die man ansteuern will, 
zu wissen. So kann es z.B. wünschenswert sein, eine schnelle gra- 
phische Text- oder Bildausgabe zu realisieren. Die Turbo-Pascal- 
Routine OutText(XY) mag sehr vielseitig sein: schnell jedenfalls ist 
sie nicht, weder bei den Vektorzeichensätzen, noch beim 
’Defaultfont’. Hinzu kommt, daß der Defaultfont der einzige pixel- 
orientierte Font ist, der in der UNIT GRAPH benutzt werden kann. 
Noch dazu läßt sich keine Schriftart der UNIT GRAPH zum Über- 
schreiben eines evil. schon geschriebenen Textes benutzen. Soll 
z.B. eine Statusmeldung oder ähnliches periodisch an der gleichen 
Stelle ausgegeben werden, so muß die entsprechende Zeile zuerst 
mit der Hintergrundfarbe ausgefüllt werden, was zusätzlich Zeit in 
Anspruch nimmt. Aber selbst wenn alle diese Dinge von Pascal zur 
größten Zufriedenheit gelöst wären, wäre es interessant zu wissen, 
wie die benutzte Graphikkarte eigentlich funktioniert. 


In diesem Kapitel werden allerdings nur drei Graphikkarten detail- 
liert besprochen, nämlich EGA, VGA und HERCULES. (Auf eine 
Darstellung der CGA-Karte wird (fast) gänzlich verzichtet). 


Auch diese Videosysteme werden nur soweit besprochen, wie es für 
das Verständnis der Programmierpraxis - insbesondere auch der 
Turbo-Vision für den Graphikmodus (TGV) von Interesse ist. Die 
Nutzung der CGA-Karte wird zwar in der TGV nebenbei bemerkt 
eingeschlossen, aber dies nur in Graphikmodus sechs (640 x 200 
Pixel, 2 Farben) und deshalb, weil es praktisch kaum Mehraufwand 
bedeutet. 
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Die Hercules-Graphikkarte 


Die Hercules Graphics Card (HGC) ist im Graphikmodus relativ un- 
gewöhnlich organisiert, während sie im Textmodus dem MDA ent- 
spricht. Da sie nur zwei ’Farben’ zur Verfügung stellt, wird zur Dar- 
stellung eines Bildpunktes oder Pixels genau ein Bit benötigt. Ein 
Byte umfaßt dann acht Pixel und bei der Auflösung der HGC von 
720 x 348 Pixeln umfaßt jede Zeile genau 90 Byte. Das Eigenwillige 
besteht nun darin, daß die Zeilen nicht einfach hintereinander im 
Videospeicher adressiert werden, sondern in vier Blöcke getrennt 
sind, deren Offset um jeweils 2000h versetzt ist. Der erste Block 
umfaßt sequentiell die Zeilen 0,4,8,.. der zweite Block die Zeilen 1, 
5, 9.. etc. , d.h., daß die Adressierung eines Pixels etwas umständli- 
cher ausfällt als bei EGA und VGA. Leider wird die Herculeskarte 
nicht von BIOS unterstützt, so daß das Anwenderprogramm alle 
Graphikfunktionen einschließlich des Umschaltens in den Graphik- 
modus und zurück in den Textmodus selbst übernehmen muß. Ent- 
gegen anderslautender Darstellungen wird die Herculeskarte vom 
Maustreiber jedoch sehr wohl auch im Graphikmodus unterstützt 
(siehe Kapitel 6). Die vom Maustreiber übergebenen Koordinaten 
sind in diesem Fall an die Herculesauflösung angepaßt, d.h. sie rei- 
chen von (0,0) bis (719,347). 

Sind X bzw. Y die Koordinaten eines Pixels, so errechnet sich der 
Offset des entsprechenden Datenbytes im Videospeicher wie folgt: 


Offset:= (Y mod 4) * 2000h + (Y div 4) * 90 + X div &; 
bzw. schneller: 
Offset:= ( Y and 3) shl 13 + (Y shr 2) * 90 + X shr 3; 


Der Graphikbildschirm der HGC benötigt 90 * 348 = 32 KB Spei- 
cher, so daß Platz für zwei Graphikseiten zur Verfügung steht. 
Turbo Pascal 7.0 unterstützt die Seitenumschaltung der HGC. Die 
erste Seite beginnt an der Adresse B0000h, die zweite an der 
Adresse B8000h. Die einzelnen Pixel werden, wie auch bei anderen 
Graphikkarten, folgendermaßen adressiert: 


Byte 0 Byte 1 Byte 2 ... 
Bit 76543210 76543210 76543210 ... 
Pixel 01234567 8...15 16...23 ... 


(Das Bit ist gesetzt, wenn der Ausdruck Mem[Segment:Offset] and 
($80 shr (X and 7))<>0 wahr ist.) 
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Hierzu sei angemerkt, daß diese Adressierung zwar dem Gefühl 
nach richtig sein mag, jedoch in der Praxis nachteilig ist, da sie die 
Datengröße auf ein Byte festlegt. Hätte man statt dessen das Bit Null 
des Bytes als jeweils ersten Pixel gewählt, so wäre die Wortweise 
Bildbearbeitung deutlich einfacher zu bewerkstelligen, da sie dann 
der Intelkonvention (Lo-Byte first) entspräche. 


Die Register der Herculeskarte 


Die Hercurleskarte wird (wie die CGA-Karte auch) über den CRTC- 
(Cathod-Ray-Tube-Controller)-Baustein 6845 von Motorola ange- 
steuert. Die Register des Bausteins sind im PC über folgende Port- 
adressen ansprechbar: 


Port Register Zugriff 

3B4h Index Schreiben 

3B5h Daten Lesen/Schreiben 
3B8h Modus Schreiben 

3BAh Status Lesen 

3BFh Konfiguration Lesen/Schreiben 


Die Adresse des Indexports steht im BIOS-Datenbereich an der 
Stelle Seg0040:63h. Die Adresse des Datenports ist stets um eins 
größer. Über Index- und Datenport erfolgt der Zugriff auf insgesamt 
18 interne Register. Vor jedem Zugriff auf ein Register wird der 
Index dieses Registers in den Indexport geschrieben. Bis auf die 
Register 14 und 15 sind alle Register Nur-Schreibregister. Die Bele- 
gung zeigt Tabelle 8.1. 


Konfigurationsregister (3BFh): 


Das Konfigurationsregister der Herculeskarte ist folgendermaßen 
belegt: 

Bit Bedeutung 

0: 1 = Graphikmodus zugelassen, 0 = Graphik gesperrt 

1: 1 = Graphikseite 1 zugelassen, 0 = Graphikseite 1 gesperrt 


( Die weiteren Bits sind ohne Funktion ) 
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Statusregister (3BAh) 


Das Hercules-Statusregister ist ein Nur-Lese-Register und hat folgen- 
de Belegung: 


Bit Bedeutung 

0 0 = Horizontaler Strahlrücklauf 

1 1/0 Lichtgriffel an/aus 

3 1 = Punkt wird gesetzt, 0 = Punkt wird nicht gesetzt 
7 0 = Vertikaler Strahlrücklauf 


Die anderen Bits des Statusregisters sind ohne Bedeutung. 


u 
Textmodus | phikmodus 


Zahl der Zeilen -1 25 (19h) 91 (5Bh) 
Anzahl zus. Rasterzeilen 6 (06h) 2 (02h) 
Zeilen auf dem Bildschirm 25 (19h) 87 (57h) 
Zeilensprung 2 (02h) 2 (02h) 
Anzahl d. Zeilen/Zeichen - 1 13 (0Dh) 3 (03h) 


Vert. Sychr. -1 25 (19h) 87 (57h) 


Bee 

1 |ieutezeieuescunon [namen jo 

Hnöyeospmaenanses jo jo | 

Looneceseiasaenotas | | 

Sy dercumoposton |. |. | 
| Ca 


Lo-Byte der Cursorposition e_ I en 
6 Hi-Byte Lichtgriffelposition 


Erste Zeile des Cursors 11 (0Bh) 
i ? 
Lo-Byte Lichtgriffelposition 


S 


al. all. S >| —_ 
oIm 
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8.1.2 


Der Inhalt des Modusauswahlregisters wird vom BIOS - zumindest 
bei den vom BIOS unterstützten Graphikkarten - im BIOS-Datenbe- 
reich an der Adresse 40h:65h vermerkt, da ihm z.B. entnommen 
werden kann, ob der aktuell eingestellte Videomodus ein Graphik- 
modus ist. Wenn ein Programm den Wert des Registers ändert, soll- 
te deshalb auch jeweils der BIOS-Datenbereich aktualisiert werden. 
(Abgesehen davon kann das Programm dann stets entscheiden, ob 
es sich im Text- oder Graphikmodus befindet.) 


Modusauswahlregister (3B8h): 
Das Modusauswahlregister hat folgende Belegung: 


Bit Bedeutung 

1 1 = Graphikmodus, 0 = Textmodus 

3 1 = Bildschirm eingeschaltet, 0 = Bildschirm ausgeschaltet 
5 1/0: Blinken aus/an 

7 1/0 Graphikseite 1/0 aktiv 


Im Textmodus hat das Modusauswahlregister den Wert 8, bei Gra- 
phik mit einer Seite den Wert OAh, bei Graphik mit zwei Seiten den 
Wert 8Ah. Das Umschalten in einen anderen Modus wird durch Set- 
zen des Konfigurationsregisters eingeleitet. Dann wird über das Mo- 
dusregister der Bildschirm ausgeschaltet. Als drittes werden die 
Registerwerte über Index- und Datenport gesetzt und zuletzt wird 
der endgültige Wert des Modusregisters gesetzt, d.h. der Bildschirm 
wieder eingeschaltet. Diese Schritte sollten so schnell wie möglich 
aufeinander folgen. 

Auch andere Graphikkarten bedienen sich des CRTC 6845, benut- 
zen aber z.T. andere Portadressen und Registerbelegungen. Da an- 
dere Graphikkarten wie CGA und MDA vom BIOS unterstützt wer- 
den, ist jedoch eine genaue Kenntnis der Registerbelegungen nicht 
unbedingt nötig. (Allein: Weder CGA noch MDA zeigen im Status- 
register in Bit 7 den vertikalen Strahlrücklauf an. Auf diese Weise 
lassen sich MDA und Hercules unterscheiden). 


Die UNIT HERCULES 


Die UNIT HERCULES enthält alle wichtigen Routinen, die speziell 
zur Nutzung der Herculeskarte benötigt werden. Zum Teil werden 
die gleichen Routinen weiter unten in der Turbo Vision für den 
Graphikmodus wieder auftauchen, da die TGV die UNIT GRAPH 
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nicht nutzt und somit auch die Herculeskarte direkt initialisiert und 
ansteuert. Bei der TGV werden jedoch alle wichtigen Routinen zur 
Steuerung der Graphikkarten in einer einzigen Unit untergebracht, 
was den Vorteil hat, daß nicht allzu viele FAR CALLs zu erfolgen 
haben, da diese erheblich mehr Zeit in Anspruch nehmen als NEAR- 
CALLs. Die UNIT HERCULES wird deshalb in der TGV nicht benutzt. 


[RRRRREERERETIRTITIRTIRIRRTIRN EAN NRRTRRRTRICRER) 


{ Copyright (C) Christian Baumgarten, Hamburg 1993 } 


[FRRRRERTTEERRRTIREIRERRRRRRERTRRERRNRERRERERNEN N 


UNIT HERCULES; 


INTERFACE 
Type HGCMODE = (HALF,FULL); 
{ Half = Modus mit einer Graphikseite. 
Full = Modus mit zwei Graphikseiten } 


procedure HGCInitGraph (Mode :HgcMode) ; 
procedure HGCCloseGraph; 
procedure HGCShowPage(Page:Byte); 


procedure HGCPutPixel(x,y:Integer:page,color:byte); 
function HGCGetPixel(x,y:Integer;page:byte):Byte; 
procedure HGCCIrDev(page:byte): 
function HGCIsGraphMode::Boolean; 
procedure HGCLine(x1,yl1,x2,y2:integer;page,color:byte); 


IMPLEMENTATION 

type CRTRegs=array[0..11] of byte: 

const 

TextRegs :CRTRegs=($61,$50,$52,$0F,$19,$06,$19,$819,$02,$0D,$0B,$0C); 
GrafRegs :CRTRegs=($35,$2D,$2E,$07,$5B,$02,$57,$57,$02,$03,$00,$00); 


ModeReg = $03B8; 
ConfigReg= $03BF; 
IndexReg = $03B4; 
DataReg = $03B5; 


procedure HGCInit(Cfg,Model,Mode2:Byte;Var CRT6845:CRTRegs); 
assembler; 
asm 
mov dx,configreg { Konfigurationsregister setzen } 
mov al,cfg 
out dx,al 
mov dx,modereg { Modusregister setzen } 
mov al model 
out dx,al 
les si,crt6845 { CRT-Registerwerte setzen: } 
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mov cx,12 { 12 Stück an der Zahl... } 
cld 
mov dx, IndexReg 
xor ah,ah { AH = Index des jeweiligen Registers } 
@@1:mov al,ah 
out dx,al 
seges lodsb { Registerwert laden.. } 
inc dx { Datenregister adressieren } 
out dx.al { Wert schreiben.. } 
dec dx { Indexregister adressieren } 
inc ah { Nächster Index.. } 
loop @@1 
mov dx,modereg { Modusregister auf endgültigen Wert setzen } 
mov al ‚mode2 
out dx,al 
mov es,seg0040 { Wert des Modusregisters im } 
mov es:[$65], al { BIOS-Datenbereich anpassen } 
end; 


procedure HGCInitGraph(Mode :HgcMode) ; 
begin 
case mode of 
Half:HGCInit(1,2,$0A,GrafRegs):; 
Full :H6GCInit(3,$82,$8A,GrafRegs); 


else exit; 
end; 
Mem[Seg0040:$49]:=6; { Information für den Maustreiber } 
end; 
procedure HGCCloseGraph; 
begin 
Mem[Seg0040:$49]:=7; { Bildschirmmodus 7 } 
HGCInit(1.0,8,TextRegs); { HGC in den Textmodus schalten } 
end; 
function HGCIsGraphMode:Boolean; 
begin 
H6CIsGraphMode :=Mem[Seg0040:$65] and 2<>0; 
end; 


procedure HGCC1IrDev(page:byte); assembler; 
asm 
mov es,segB000 { Selektor 0. Seite } 
cmp page,0 
je ee 
mov es,segB800 { Selektor 1. Seite } 
@@1: 
xor di,di 
mov cx,4000H { 32 KB in Worten } 
cld 
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xor axX,ax 
rep sStosw 
end; 


procedure HGCShowPage(page:Byte); assembler; 
{ Seitenumschaltung über das MSB des Modusregisters: } 
{MB =1 >= 1. Seite aktivieren 
asm 
mov dx,modereg 
mov es,seg0040 
mov di,$65 
mov al,es:[di] { AL = Derzeitiger Wert des Modusregisters } 
cmp page,0 { aus dem BIOS-Datenbereich. } 
jne @@1 
and al,$7F { Seite 0: MSB löschen. } 
jmp @@2 
e@]: 
or al,$80 { Seite 1: MSB setzen. } 
@@2: 
out dx,al { Neuen Wert in das Modusregister schreiben. } 
mov es:[di],al { .. und im BIOS-Datenbereich mitprotokollieren. } 
end; 


Zeilenoffset (Hercules) berechnen: 
= ((y and 3) sh] 13) + (y shr 2) * 90 + x 
i 


{ 

{ 

{ input: ax = y (Zeilen) 
{ bx = x (Spalten) 
{ 
pP 


en 


output: di = offs(x.y) 
rocedure _gethgcoffs; near: assembler; 
asm 
push ax 
shr ax,2 
mov dx,90 
mul dx 
pop dx 
and dx,3 
mov c1,13 
shi dx,cl 
add ax,dx 
mov c1,3 
shr bx,cl 
add ax,bx 
mov di,ax 
end; 
{ Input: DI = Offset auf eine HG6C-Zeile } 
{ Output: DI = Offset auf gleiches Byte eine Zeile tiefer } 
procedure _gethgcdelta; near; assembler; 
asm 
cmp di ,$6000 { Letzter Block ? } 
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jae @@1 
add di ,$2000 { Nein: Nächster Block. d.h. 2000H addieren } 
ret 
ee: 
sub di.$6000 - 90 { Ja: ($6000-90) abziehen: eine Zeile weiter, 
drei Blöcke zurück } 


end; 
{ Inut: X =-X } 
{ DL = Farbe } 
{ ES:DI = Zeiger auf das Bildspeicherzeile } 
‘procedure _hgcputpixel; near; assembler; 
asm 
mov a1,$80 
mov cx,bx 
shr bx,3 { X / 8 = Offset auf Byte } 
and c1,7 { X MOD 8 = Byteoffset des Bits } 
shr al,cl 
test dl,1 { Farbe = 1? } 
jnz @@1 
not al { Nein: Bit löschen. } 
and es:[di+bx],al 
jmp 8@2 
@@1:or es:[di+bx],al { Ja: Bit Setzen. } 
682: 
end; 


procedure HGCPutPixel(x,y:Integer;page,color:byte); assembler; 
asm 
mov es,SegB000 
cmp page,l 
jb  @seiteO 
mov es,SegB800 { ES = Segmentadresse Bildschirm } 
@seiteO: 
mov ax,y 
xor bx,bx 
call _gethgcoffs { DI = Offs(0,y) } 
mov bx,x { BX=X, DL = Farbe } 
mov dl,color 
call _hgcputpixel 
end; 


function H6CGetPixel(x,y:Integer;page:byte):Byte; assembler; 
asm 

mov es,SegB000 

cmp page,l 

jb &@seiteO 

mov es,SegB800 

@seiteh: 
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mov ax,y 
mov bx,x 
push bx 


call _gethgcoffs 


pop cx 
and cx,7 
mov al,$80 
shr al,cı 


and al,es:[di] 


je @ende 
mov al,l 


@ende: 
end: 
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procedure HGCLine(x1,yl,x2,y2:integer;page,color:byte); assembler; 


var xx,d_x,d_y,r:integer; 


asm 


mov 
@@Pagel: 
mov 
cmp 
jae 
xchg 
mov 
mov 
xchg 
mov 
@@1 :mov 
sub 
jnb 
neg 
neg 
@@2 :mov 
mov 
sub 


x,1 


es ‚SegB000 
page ‚1 
@@PageO 
es ,‚SegB800 


bx,y2 
bx,y1l 
@@l 
bx,x1 
x2,bx 
ax,yl 
ax,y2 
yl,ax 
bx,x2 
bx,x1 
@@2 
xx 

bx 


d x.bx 


ax,y2 
ax,yl 


mov d_y,ax 


mov ax,yl 

xor bx,bx 

call _gethgcoffs 
mov bx,x1 

mov dI,color 
call _hgcputpixel 


xor CX,CX 
mov T,CX 
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@85: 


@@6: 


083: 


@@8: 


_gethgcdelta 
ax,d_x 

r,ax 

bx,xl 
dl,color 
_hgeputpixel 
@@5 


_gethgcdelta 
ax,.d x 

r,ax 

ax,r 

ax,l 

ax.d_y 

@@8 

aX,xx 

x1,ax 
ax,d y 

r.ax 

bx,x1 
dl,color 
_hgeputpixe] 
@@3 
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& Die Graphikmodi 


Die EGA-/VGA-Graphikkarte 


Die Speicherorganisation der EGA-/VGA-Karte 


Die EGA-/VGA-Karte ist in vier 32KB-/64KB-Speicherebenen organi- 
siert, die (im Graphikmodus) alle den Adressbereich von A0000h 
bis AFFFFh belegen. Die Speicherebenen liegen quasi über- oder 
hintereinander. Bei Schreibzugriffen im Graphikmodus lassen sich 
auf diese Weise alle Ebenen gleichzeitig ansprechen. Sollen be- 
stimmte Ebenen nicht angesprochen werden, so können sie mit 
dem Plane-Mask-Register ausgeblendet werden. (Index 02h, Index- 
port 3C4h, Datenport 3C5h; die Bits 0..3 repräsentieren die Ebenen, 
ein gesetztes Bit erlaubt den Zugriff, die oberen vier Bits sind unbe- 
nutzt). 


Jede Ebene repräsentiert ein Farbbit, Ebene null das erste Farbbit, 
Ebene 3 das vierte Farbbit. Somit lassen sich 16 Farben codieren. 
Jede Farbnummer dient der Auswahl eines von 16 Palettenregistern, 
die die der Farbnummer zugeordnete Farbe definieren. Die EGA- 
Karte erlaubt 64 Farben, entsprechend den unteren sechs Bit der 
Palettenregister. Die VGA-Karte ist hier etwas komplizierter organi- 
siert, da sie einen Analogmonitor ansteuert. 


Standardmäßig sind die Farben die gleichen, die auch im Textmo- 
dus verwendet werden. Durch Umprogrammierung der Palettenregi- 
ster lassen sich jedoch auch andere Einstellungen erreichen, wenn 
dies erwünscht ist. 


Sollen die Daten des Videospeichers gelesen werden, so muß na- 
türlich die Speicherebene ausgewählt werden, die gelesen werden 
soll. Hierzu wird das Read-Map-Select-Register benötigt. Es handelt 
sich dabei um das Datenregister mit dem Index 04h (Indexport: 
3CEh, Datenport: 3CFh), dessen Bits O0 und 1 die Speicherebene se- 
lektieren. 


Der Videospeicher ist in Zeilen zu jeweils 80 Byte (entsprechend 
640 Bit) organisiert. Die Zeilen stehen direkt hintereinander im Vi- 
deospeicher, so daß das Byte, das den Pixel mit den Koordinaten 
(&,y) enthält, den Offset (y*80) + x div 8 besitzt. Die Bits repräsen- 
tieren (wie bei der Herculeskarte) die jeweiligen Pixel in umgekehr- 
ter Reihenfolge: Bit 7 entspr. Pixel 0, Bit 6 Pixel 2 etc. 


Die Entwickler haben die Karte allerdings mit diversen weiteren 
Registern versehen, so daß das direkte (ebenenweise) Lesen und 
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Schreiben in den Videospeicher bei der EGA-/VGA-Programmierung 
wohl eher die Ausnahme darstellen dürfte. 


Die Prozessor-Latch-Register 


Als erstes sind die vier Prozessor-Latch-Register zu nennen. Jeder 
Speicherebene ist genau ein Latch-Register zugeordnet, über das der 
Datenfluß gesteuert wird. Wird auf ein bestimmtes Byte im Video- 
speicher lesend zugegriffen, so werden die vier Byte der vier Spei- 
cherebenen in jeweils ein Latch-Register übertragen. Die Daten 
können nun mit einem Schreibbefehl auf die gleiche Speicheradres- 
se auf verschiedene Art in den Videospeicher zurückgeschrieben 
werden. So können bei diesem Schreibvorgang z.B. Bits maskiert 
werden. Soll etwa nur ein Pixel manipuliert werden, so werden alle 
anderen Bits mithilfe des Bit-Mask-Registers ausmaskiert. Alle Ver- 
änderungen betreffen dann ausschließlich das nicht maskierte Bit. 
(Das Bit-Mask-Register hat Index 08h; Indexport 3CEh, Datenport 
3CFh). Man kann den Prozessor als Datenlieferanten auch durch 
das Set-Reset-Register ersetzen (Index 0, Port 3CEh/3CFh). Will man 
dieses nicht oder nicht in allen Farbebenen nutzen, so kann man es 
ebenenweise ausmaskieren. Hierzu dient das Set-/Reset-Enable-Re- 
gister (Index 1, Port 3CEh/3CFh) des Graphikcontrollers. Benutzt 
man diese beiden Register (d.h., ist das Set-/Reset-Enable-Register in 
den unteren vier Bits ungleich null), so passiert folgendes: Ein 
Schreibzugriff der CPU auf eine Videospeicheradresse wird in alle 
Ebenen, die nicht mit dem Set-/Reset-Enableregister ausmaskiert 
sind, nicht das geschriebene Datenbyte vom Prozessor setzen, SOn- 
dern FFh oder 00h, je nachdem, ob das Bit des Set-/Reset-Registers 
für die Farbebene gesetzt ist oder nicht. (Der Schreibzugriff wird 
allerdings durch das Bitmaskregister zusätzlich beeinflußt). 

Optional besteht auch noch die Möglichkeit, durch entsprechende 
Programmierung des Data-Rotate-Registers die Datenbits zu rotieren 
bzw. alte und neue Farbwerte logisch (AND, OR, XOR) zu verknüp- 
fen. 

Die in Kapitel 14 vorgestellte Turbo-Vision für den Graphikmodus 
enthält reichlich Beispiele, wie man die VGA-Register geschickt ein- 
setzen kann. 


Der Graphikcontroller 


Der Graphikcontroller ist für die Programmierung der EGA-/VGA- 
Graphikmodi der wichtigste Baustein. Ohne ein genaues Verständ- 
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nis seiner Funktionen ist eine schnelle und rationelle Programmie- 
rung der EGA-/VGA-Karte nicht möglich. Der Graphikcontroller ver- 
fügt über folgende Register: 


Indexport 3CEh 
Datenport 3CFh 


Register 
Set-/Reset 

Enable Set-/Reset 
Color Compare 
Data Rotate 

Read Map Select 
Graphics Mode 
Miscellaneous 


: 
” 


NOAVWNHKMNDN MO 


Color Don’t Care 
Bit Mask 


[e) 


Ein Zugriff auf eines der Register erfolgt (wie bei der Hercules- 
karte), indem die entsprechende Registernummer in den Indexport 
geschrieben wird. Das so gewählte Register kann dann über den 
Datenport beschrieben werden. 


Das Set-/Reset-Register (Index 0) 

Das Set-/Reset-Register enthält in den Bits 0..3 für jede Farbebene 
ein Bit. Ein gesetztes (gelöschtes) Bit sorgt dafür, daß bei einem 
Schreibzugriff der CPU auf den Bildspeicher alle Bits des von der 
CPU adressierten Bytes in der entsprechenden Ebene gesetzt 
(gelöscht) werden, unabhängig davon, welchen Wert die CPU auf 
den Datenbus legt. Dieser Vorgang läßt sich mit dem Enable-Set- 
/Reset-Register ebenenweise und mit dem Bit-Mask-Register bitwei- 
se maskieren. 


Soll z.B. ein bestimmtes Bit in einer bestimmten Farbe gesetzt wer- 

den, so geht man folgendermaßen vor: 

1) Alle anderen Bits im Bit-Mask-Register ausblenden. 

2) Die gewünschte Farbe in das Set-/Reset-Register schreiben 

3) Alle Ebenen mit dem Enable-Set-/Reset-Register zulassen. 

4) In Folge einen Lese- und einen Schreibzugriff auf die entspre- 
chende Bildspeicheradresse ausführen. 


5) Die Registerwerte zurücksetzen. 
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Daß erst ein Lesezugriff und dann ein Schreibzugriff zu erfolgen hat, 
hat seinen Grund: Soll nur ein Bit verändert werden, so müssen die 
alten Daten mit den neuen Daten verknüpft werden. Hierzu müssen 
die alten Daten in die Latch-Register geladen werden. Und genau 
das geschieht bei einem Lesezugriff auf eine Bildspeicheradresse. 


Die Bits 4..7 sind ohne Bedeutung. 


Das Enable-Set-/Reset-Register (Index 1) 

Maskiert mit den unteren vier Bits die Wirkung des Set-/Reset-Regi- 
sters. Ein gesetztes Bit erlaubt den Speicherzugriff über das Set- 
/Reset-Register, ein gelöschtes Bit maskiert die entsprechende 
Ebene für das Set-/Reset-Register. Die Bits 4..7 sind ohne Bedeu- 
tung. 


Das Color Compare Register (Index 2) 

Das Register dient dem schnellen Farbvergleich. Um herauszufin- 
den, wieviele und welche Bits eines Bytes eine bestimmte Farbe 
haben, wird die Farbe in das Color-Compare-Register geschrieben. 
Dann muß mithilfe des Mode-Registers der Lesemodus 1 eingestellt 
werden. Ein Lesezugriff auf den Videospeicher liefert nun ein Byte, 
bei dem alle Bits gesetzt sind, deren Farbwert dem des Color-Com- 
pare-Registers entspricht und alle anderen gelöscht sind. 


Das Data Rotate Register (Index 3) 

Das Data-Rotate-Register bestimmt, wie die neuen Bilddaten mit den 
alten Daten in den Prozessor-Latch-Registern verknüpft werden. Des 
weiteren eröffnet es die Möglichkeit, die Bilddaten um eine be- 
stimmte Anzahl Bits zu rotieren. 


Das Register hat folgende Belegung: 


Bit Funktion 
0..2: Anzahl der Rechtsrotationen der Prozessordaten 
3,4: 00: Normal schreiben 
01: Logische AND-Verknüpfung mit ursprünglichen 
Farbwerten 


10: Logische OR-Verknüpfung mit ursprünglichen 
Farbwerten 


11: Logische XOR-Verknüpfung mit ursprünglichen 
Farbwerten 


5.7: Ohne Funktion 
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Das Read-Map-Select-Register (Index 4) 
Das Read-Map-Select-Register dient der Auswahl der Speicherebene 
bei Lesezugriffen, die nicht mit den Latchregistern arbeiten. Die un- 
teren zwei Bits des Registers wählen die zu lesende Speicherebene 
aus. Alle anderen Bits sind ohne Belegung. 


Das Graphics Mode Register (Index 5) 

Das Register legt fest, in welchem Modus auf den Bildspeicher le- 
send oder schreibend zugegriffen werden kann. Unter den 
Schreibmodi ist vor allem Modus 2 von besonderem Interesse. Die 
anderen Bits sollten normalerweise nicht gesetzt werden. 


Das Register hat folgende Belegung: 


Bit Funktion 


0,1: Schreibmodus (EGA nur 0..2) 

2: 0: Normaler Betrieb 

1: Ausgänge hochohmig (nur EGA, nur für Testzwecke) 
Lesemodus O oder 1 

Odd/Even-Adressierung an/aus 

CGA-Serialisierung an/aus 

256-Farben-Serialisierung an/aus (nur VGA) 


unbenutzt 


- Der Schreibmodus O0 wurde oben bereits beschrieben: Je nach 
Zustand des Set-/Reset-Enable-Registers werden entweder die 
Prozessordaten oder das Set-/Reset-Register als Datenquelle ver- 
wendet. Bit-Mask- und Data-Rotate-Register beeinflussen das Er- 
gebnis. 


- Im Schreibmodus 1 sind die Latch-Register die alleinige Daten- 
quelle. Weder Bit-Mask noch Data-Rotate-Register werden be- 
rücksichtigt. Der Modus dient allein dem Datentransfer innerhalb 
des Bildspeichers. Ein Lesezugriff auf eine Bildspeicheradresse 
lädt die Latchregister, ein Schreibzugriff sorgt dafür, daß ihre Da- 
ten an die entsprechende Adresse geschrieben werden. Der Mo- 
dus ermöglicht eine sehr hohe Datentransferrate innerhalb des 
Bildspeichers, da bei jedem (byteweisen) CPU-Zugriff 4 Byte aus 
vier Ebenen gelesen oder geschrieben werden. 


- Im Schreibmodus 2 wird das Datenbyte, das der Prozessor 
schickt, so interpretiert, wie sonst der Inhalt des Set-/Reset-Regi- 
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sters, d.h. als Farbnummer. Je nachdem, welches der unteren 
vier Bits gesetzt ist, wird entweder FFh oder 00h in den Bildspei- 
cher geschrieben. Das Bit-Mask-Register beeinflußt das Ergebnis. 
Dieser Modus ist im Prinzip der günstigste, um Text schnell in 
den Bildspeicher zu transferieren, so wie es bei der Turbo-Vision 
für den Graphikmodus notwendig ist (vgl. Kapitel 14). 


Im Schreibmodus 3 wird das Set-/Reset-Enable-Register ignoriert. 
Datenquelle ist das Set-/Reset-Register. Das Prozessorbyte dient 
als zusätzliche Bitmaske, d.h. das Byte wird mit dem Inhalt des 
Bit-Mask-Registers logisch UND verknüpft und bezeichnet dann 
diejenigen Pixel, deren Farbe auf den Inhalt des Set-/Reset-Regi- 
sters zu setzen ist. Dieser Modus steht nur bei der VGA-Karte zur 
Verfügung. Auch dieser Modus eignet sich im Prinzip hervorra- 
gend, um Text und andere (2-Farbige) Bilddaten schnell in den 
Bildspeicher zu schreiben. 


Die Lesemodi 


Im Lesemodus O liest der Prozessor das Datenbyte derjenigen 
Ebene aus dem Videospeicher, die über das Read-Map-Select- 
Register ausgewählt wurde. 

Lesemodus 1 wurde weiter oben (Color Compare Register) be- 
reits erläutert. 


Das Miscellaneous-Register (Index 6) 
Das Register ist für die normalen Aufgaben der EGA-/VGA-Program- 
mierung relativ uninteressant. Es besitzt folgende Belegung: 


Bits Funktion 
0 0 = Textmodus, 1 = Graphikmodus 
1 _ Adress-Null-Bit-Substitution ein/aus 
2,3 Adressbereich: 

00: A0000h...BFFFFh (128 KB) 

01: A0000h...AFFFFh (64KB) 

10: B0000h...B7FFFh (32KB) 

11: B8000h...BFFFFh (32KB) 
4..7 unbelegt 


Das Color-Don’t-Care Register (Index 7) 
Das Register ist im Lesemodus eins (vgl. Color-Compare-Register) 
für die Maskierung der Speicherebenen zuständig, d.h. ist beim 
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Farbvergleich eines der unteren vier Bits gesetzt, so wird der Wert 
der entsprechenden Farb-Ebene ignoriert und das Byte, das der Pro- 
zessor erhält, sagt nur noch etwas darüber aus, ob bestimmte Farb- 
komponenten zwischen Videospeicher und Color-Compare-Register 
übereinstimmen oder nicht. Werden alle Ebenen bis auf eine mas- 
kiert, so kann man im Lesemodus Eins lesen wie sonst im Lesemo- 
dus Null, d.h. ebenenweise. 


Der Attributcontroller 


Der Controller besitzt den Schreibport 3C0Oh, der abwechselnd als 
Index- und Datenport fungiert, d.h jeder Schreibzugriff auf den Port 
schaltet zwischen Index- und Datenregister um. Um anfangs den 
Indexport zu adressieren, ist ein Lesezugriff auf das Input-Status- 
Register #1 notwendig (Monochrom: Port 3BAh, Color: Port 3DAh). 


Der Attributcontroller kann (nur bei der VGA-Karte) über Port 3C1h 
ausgelesen werden. 


Das Index-Register enthält als Bonbon noch eine Besonderheit: 


Bit 5 des Registers regelt die Zugriffsart; da die Videokarte selbst 
häufig auf die Registerwerte zugreift und es sonst zu Konflikten 
kommen würde, gibt eine Eins in Bit 5 der Videokarte den Zugriff 
frei, eine Null der CPU. Die Bits 0..4 selektieren den Index. Will 
man also die Registerwerte direkt verändern, so muß im nachhinein 
unbedingt Bit 5 des Indexregisters wieder gesetzt werden. Ein Zu- 
griff auf die Register des Attribut-Controllers sollte möglichst nur 
während eines Strahlrücklaufs geschehen, auch um Flackereffekte 
zu vermeiden, oder besser gar nicht direkt, sondern nur über die 
BIOS-Palettenfunktionen erfolgen. 


Der Attribut-Controller verfügt über folgende Register: 
Index Inhalt 
00-0Fh EGA-Palettenregister 


10h Attribut Mode Control 
11h Overscan Color 

12h Color Plane Enable 

13h Horizontal PEL Panning 


14h Color Select 
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Die Palettenregister (Index 0..0Fh) 

In den 16-Farben-Modi wählt jede Farbnummer eines von 16 Palet- 
tenregistern aus, die bei der EGA-Karte direkt einen 6-Bit-Farbwert 
enthalten, bei der VGA-Karte hingegen einen 6-Bit-Index auf jeweils 
eines von 64 Farbregistern des DAC (Digital-Analog-Konverters), die 
ihrerseits die 18-Bit-Rot-Grün-Blau-Werte enthalten, aus denen das 
analoge Monitorsignal zusammengesetzt wird. Die VGA-Karte ver- 
fügt jedoch über insgesamt 256 Farbregister, so daß vier Farbseiten 
mit je 64 Registern oder 16 Farbseiten mit 16 Registern über das 
Color-Select-Register ausgewählt werden können. 


Bei der EGA-Karte haben die sechs unteren Bits der Palettenregister 
dagegen folgende direkte Farbbelegung: 


Bit Bedeutung 


Primäres Blau 


Primäres Grün 
Primäres Rot 
Sekundäres Blau 
Sekundäres Grün 
Sekundäres Rot 


AR ODNDH CO 


(Bei der VGA-Karte sind die ersten 64 Farbregister des DAC ge- 
wöhnlich so eingestellt, daß sie den Standard-EGA-Farben entspre- 
chen.) 


Das Attribut-Mode-Control-Register (Index 10h) 

Neben dem Memory Mode Register des Sequencers (siehe unten) 
und dem Miscellaneous-Register des Graphik-Controllers enthält 
dieses Register das dritte Bit, daß festlegt, ob der aktuelle Modus ein 
Text- oder Graphikmodus ist: 


Bit Bedeutung 
0 0/1: Text/Graphik 
0/1: Color-/Monochrombildschirm 
2 0/1: Neunte Zeichenspalte in Hintergrundfarbe/entspr. 
der achten Spalte 
3 0/1: Bit 7 des Attributbytes als Farbbit/Schalter für 


Blinken 
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5: (VGA) 0/1: Horizontales Softscrolling ganzer Bildschirm/bis 
Line-Compare-Zeile 
6: (VGA) 0/1: 16/256-Farbmodus 
7: 0/1: Vier Farbseiten je 64 Registern/16 Seiten je 16 
Registern 

Das Overscan-Color-Register (Index 11h) 
Das Overscan-Color-Register legt die Randfarbe fest. Die Belegung 
entspricht derjenigen der Palettenregister. 
Das Color-Plane-Enable-Register (Index 12h) 
Mithilfe der Bits 0..3 lassen sich die Farbebenen von der Darstellung 
ausschließen (0O=Aus,1=Ein). 
Das Horizontal-Pixel-Panning-Register (Index 13h) 
Das Register kann für horizontales Softscrolling eingesetzt werden. 
In den Bits 0..3 steht die Anzahl der Pixel, die das Bild nach links 
geschoben werden soll. 
Das Color-Select-Register (Index 14h) 
Das Register steuert die Farbseitenauswahl bei der VGA-Karte. Wird 
mit vier Farbseiten je 64 Farben gearbeitet, so bezeichnen Bit 2..3 
die Farbseite. Wird mit 16 Farbseiten mit je 16 Farben gearbeitet, so 
wählen die Bits 0..3 die Farbseite aus. Die restlichen Bits sind unbe- 
legt. 

8.2.5 Der Sequencer 


Bei der EGA-Karte sind alle Register Nur-Schreibregister, bei der 
VGA-Karte können sie auch gelesen werden. Der Sequencer ist, wie 
der Name schon andeutet, für die Serialisierung der Daten zustän- 
dig. Für den Programmierer sind die Register - bis auf das Map- 
Mask-Register - uninteressant, da sie sich über das BIOS steuern las- 
sen. Daher werde ich nur kurz das Map-Mask-Register vorstellen. 
Dieses wird benötigt, um für den Schreibzugriff auf den Bildschirm- 
speicher (im Graphikmodus) eine bestimmte Farbebene auszuwäh- 
len. 
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Indexport 3C4h 
Datenport 3C5h 


Index Register 


0 Reset 

1 Clocking Mode 

2 Map Mask 

3 Character Map Select 
4 Memory Mode 

Das Map Mask Register 


Die unteren vier Bit des Registers dienen als Maskierungsbits für die 
jeweilige Farbebene, d.h. ein gelöschtes Bit sperrt den Zugriff auf 
die Bildspeicherebene, ein gesetztes Bit erlaubt den Zugriff. Stan- 
dardmäßig sind alle vier Bits gesetzt. Die oberen vier Bits sind ohne 
Bedeutung. Das Map-Mask-Register dient der Auswahl der Spei- 
cherebene bei Schreibzugriffen. Für die Auswahl der Speicherebene 
bei Lesezugriffen ist das Read-Map-Select-Register zuständig. 


Die Register des Digital-Analog-Konverters (VGA) 


Die VGA-Karte steuert im Gegensatz zur EGA-Karte einen Analog- 
monitor. Das bedeutet, daß - wie bei einem Fernseher - analoge 
Spannungspegel darüber entscheiden, welche Färbung ein Bild- 
punkt erhält. Der Digital-Analog-Konverter bildet aus drei 6-Bit-Wer- 
ten drei Spannungspegel für die Farbanteile Rot, Grün und Blau 
und bildet somit die letzte Instanz der VGA-Karte, die über die 
Farbe entscheidet. 


Das Auslesen der Farbanteile beginnt mit einem Schreibzugriff auf 
das PEL-Address-Read-Index-Register an der Portadresse 3C7h. Der 
Wert, der in das Register geschrieben wird, ist der Index des ersten 
Farbregisters, das ausgelesen werden soll. Hierzu sind drei Lesezu- 
griffe auf das PEL-Data-Register (Port 3C9h) notwendig, um die 
Farbanteile Rot, Grün und Blau auszulesen. Sind die drei Anteile 
ausgelesen, so wird der Adresszähler automatisch um einen erhöht, 
so daß nahtlos die Farbanteile des nächsten Farbregisters ausgelesen 
werden können. Das Setzen der Farbanteile geht entsprechend vor 
sich. Es wird durch das Schreiben des Anfangsindex in das PEL- 
Address-Write-Index-Register an der Portadresse 3C8h eingeleitet. 
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Natürlich lassen sich die Register auch mit Hilfe des EGA-/VGA- 
BIOS setzen, was in diesem Fall die Sache wesentlich vereinfacht. 
Aus diesem Grund werden auch in der UNIT VGA ausschließlich 
Palettenfunktionen vorgestellt, die mit den BIOS-Funktionen 
arbeiten. 


CRT- und Video-Controller der EGA-/VGA-Karte 


Der Video-Contoller 6845 von Motorola steuert viele Graphikkarten, 
unter anderem auch die Hercules- und die CGA-Karte. Die Register- 
belegung ist hierbei aber nicht einheitlich (vgl. Kapitel 8.1), so daß 
die Kompatibilität von EGA-/VGA-Karten zur CGA-Karte in dieser 
Hinsicht mit Vorsicht zu genießen ist. Für den Programmierer ist die 
Ergiebigkeit der CRT-/Video-Controller-Programmierung zweifelhaft 
- und bei Benutzung von Festfrequenzmonitoren unter Umständen 
sogar (für den Monitor) gefährlich. 


Wie man die Register zur Initialisierung der verschiedenen Video- 
modi der Herculeskarte programmiert, wurde bereits in Kapitel 8.1 
ausführlich erörtert. Bei der Hercules-Karte sind diese Eingriffe des- 
halb legitim, weil das BIOS des PC diese Arbeit nicht erledigt, so 
daß der Programmierer gezwungen ist, selbst Hand anzulegen. Bei 
CGA, EGA und VGA ist dies jedoch nicht der Fall. Ich rate daher 
von schreibenden Zugriffen ab. Sinnvoll kann es jedoch manchmal 
sein, die Registerwerte auszulesen, was jedoch nur bei der VGA- 
Karte möglich ist. 


Die Basisadresse des Videocontrollers liegt bei Monochrom-Adap- 
tern bei 3B4h (Indexregister) bzw. 3B5h (Datenregister) und bei 
Farbadaptern bei 3D4h/3D5h. Diese Basisadresse ist im BIOS-Daten- 
bereich an der Adresse 40h:63h vermerkt, so daß allein daraus 
schon darauf geschlossen werden kann, ob ein Farbmodus aktiv ist. 
Interessant dürfte das Statusregister an Adresse 3BAh/3DAh sein, da 
seine Bits darauf schließen lassen, ob gerade ein horizontaler oder 
vertikaler Strahlrücklauf stattfindet (vergl 8.1.1). 


Die Belegung des Statusregisters (ein Nur-Lese-Register) ist für die 
EGA-/VGA-Karte anders als bei der Herculeskarte. Bit 3 (statt Bit 7) 
zeigt den vertikalen, Bit 0 den horizontalen Strahlrücklauf an. 
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8.3 


8.3.1 


Die Palettenfunktionen des EGA-/VGA-BIOS 


Bei der Manipulation der VGA-Palette muß man sich über eines klar 
sein: Die 16 EGA-Palettenregister erfüllen bei der EGA-Karte den 
Zweck, direkt die Farbauswahl zu steuern, während sie bei der 
VGA-Karte nur eines von 256 DAC-Registern auswählen. Die ei- 
gentlichen Farbanteile werden bei der VGA-Karte ausschließlich von 
den DAC-Registern festgelegt. Allein aus Gründen der Kompatibilität 
werden die DAC-Register bei der Initialisierung der Karte so belegt, 
daß sie die 64 EGA-Farben nachbilden. Die eigentliche Farbauswahl 
erfolgt bei der VGA-Karte jedoch nicht aus 64 Farben, sondern aus 
den 218= 262144 Farben, die sich mit den DAC-Registern einstellen 
lassen. Jedes der 256 DAC-Register enthält je einen 6-Bit-Farbwert 
für die Farbanteile Rot, Grün und Blau, so daß die Farbe durch ins- 
gesamt 18 Bit festgelegt wird. Die VGA-Karte initialisiert jedoch ihre 
Register mit Werten, die den EGA-Farben entsprechen, so daß die 
EGA-Palettenfunktionen bei der VGA-Karte die gleiche Wirkung er- 
zielen - solange nicht die DAC-Register verändert wurden. 


Die EGA-Palettenfunktionen 

Die EGA-Karte erlaubt bei der Mehrzahl ihrer Register nur einen 
schreibenden Zugriff. Dies wurde bei der VGA-Karte (zum Glück) 
verbessert, so daß es einige EGA-Paletten-Funktionen gibt, die nur 
die VGA-Karte zur Verfügung stellt. 

Interrupt 10h, Funktion 10h: Die Palettenregister-Funktionen 
Über das AL-Register lassen sich einige Unterfunktionen auswählen: 


Unterfunktion 0: ’Set Palette Register’ 


IN: 

AH: 10h 

AL: 00h 

BH: Farbwert (0..63) 

BL: Index des Palettenregisters (0..15) 
OUT: - 
Unterfunktion 1: ’Set Overscan Register’ 
IN: 


AH: 10h 
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AL: 01h 

BH: Zu setzende Randfarbe (0..63) 
OUT: - 
Unterfunktion 2: ’Set All Palette-/Overscanregisters’ 
IN: 

AH: 10h 

AL: 02h 


ES:DX: Zeiger auf einen 17 Byte langen Puffer, dessen letzes 
Byte den Wert des Overscanregisters darstellt. 


OUT: - 
Unterfunktion 3: ’°Switch Insensity/Blink’ 
IN: 

AH: 10h 

AL: 03h 

BL: 0: Bit Sieben des Attributbytes im Textmodus steuert 

Intensität 
1: Bit Sieben des Attributbytes im Textmodus schaltet 
Blinken an/aus 

OUT: - 
Unterfunktion 7: ’Get Individual Palette Register’ (VGA) 
IN: 

AH: 10h 

AL: 07h 

BL: Index des zu lesenden Palettenregisters (0..15) 
OUT: 

BH: Inhalt des Palettenregisters 
Unterfunktion 8: ’Get Overscan-Register’ (VGA) 
IN: 

AH 10h 

AL: 08h 
OUT: 


BH: Wert des Overscanregisters 
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8.3.2 


Unterfunktion 9: ’Get All Palette-/Overscan-Registers’ (VGA) 


IN: 

AH: 10h 

AL: 09h 

ES:BX: Zeiger auf 17-Byte-Puffer (vergl. Untfkt. 2) 
OUT: (Daten sind im Puffer) 


Die VGA-BIOS-Funktionen zur Steuerung des DAC 

Wie bereits erwähnt, steuern die Palettenregister der VGA-Karte die 
Farbe nicht direkt, sondern durch die Auswahl eines DAC-Registers. 
Es handelt sich bei der VGA-Karte somit um eine doppelte Farbin- 
dizierung. Da das VGA-BIOS bezüglich der Palettensteuerung reiche 
Funktionsauswahl bietet, sollte wenn möglich auf eine direkte Ma- 
nipulation des DAC verzichtet werden. 


Interrupt 10h, Funktion 10h: ’Get/Set Palette 
and DAC Registers’ 


Diese Funktion des VGA-BIOS erlaubt die bequeme Manipulation 
der DAC-Register über diverse durch das AL-Register auswählbare 
Unterfunktionen: 


Unterfunktion 10h: ’Load Single DAC-Register’ 


IN: 
AX: 1010h 
BX: Index des DAC-Farbregisters 
DH: Rotanteil (0..63) 
CH: Grünanteil (0..63) 
CL: Blauanteil (0..63) 
OUT: - 
Unterfunktion 12h: ’Load Block of DAC-Registers’ 
IN: 
AX: 1012h 
BX: Index des ersten DAC-Registers 
cX: Anzahl der zu setzenden DAC-Register 
ES:BX: Adresse Farbtabelle mit 3 Byte/Farbe in der 


Reihenfolge Rot-Grün-Blau. 
OUT: - 
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Unterfunktion 13h: ’Select DAC Color Page (Mode)’ 


IN: 
AX: 1013h 
BL: 0: Modusauswahl, dann gilt für BH: 
BH: 0/1: 4 Blöcke zu 64 Registern/16 Blöcke zu 16 
Registern 
BL: 1: Seitenauswahl: 
BH: _Farbseite (0..3 oder 0..15, je nach Seitenmodus) 
OUT: - 
Unterfunktion 15h: ’Get Single DAC-Register’ 
IN: 
AX: 1015h 
BX: Index des zu lesenden DAC-Registers 
OUT: 


DH/CH/CL: Rot/Grün/Blau-Werte des DAC-Registers 
Unterfunktion 17h: ’Get Block of DAC-Registers’ 


IN: 
AX: 1017h 
BX: Index des ersten Registers 
cx: Anzahl zu lesender Register 


ES:DX: Zeiger auf Datenpuffer für Farbwerte. 
(vgl. Untfkt. 12h) 


OUT: Puffer enthält die Registerwerte 
Unterfunktion 1Ah: ’Get DAC Color Page Mode’ 
IN: 

AX: 101Ah 
OUT: 

BL: Seitenmodus: 


0: 4 Farbseiten je 64 Registern 
1: 16 Seiten je 16 Registern 
BH: Aktuell selektierte Farbseite 
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8.3.3 


Unterfunktion 1Bh: ’Grayscale Block of DAC-Registers’ 


IN: 
AX: 101Bh 
BX: Erstes zu skalierendes DAC-Register 
c: Anzahl der zu skalierenden Register 
OUT: - 


Anm.: Die Funktion wandelt Teile der Farbpalette in ’äquivalente’ 
Grautöne um, wobei folgende Gewichtung gewählt wird: 


Intensität = 0.3 * Rot + 0.59 * Grün + 0.11 * Blau. 


Der Grauton kommt dadurch zustande, daß alle DAC-Farbanteile 
auf diesen Wert gesetzt werden. 


Die UNIT PALETTES 

Die Turbo-Vision wird mit einem Farb-Dialog geliefert, der es dem 
Anwender erlaubt, die Zuordnung von Dialogelementen und Far- 
ben zu kontrollieren. Natürlich ist diese ’Definition’ eigentlich 
falsch, weil ja nicht die Farben, sondern die Farbregister zugeordnet 
werden. Will der Anwender aber die Farben manipulieren, so läßt 
ihn die Turbo-Vision im Stich. 


Die UNIT PALETTES enthält zwei Dialoge - einen für die EGA-Palet- 
tenregister und einen für die VGA-DAC-Register - die genau dies 
ermöglichen: Die durchschaubare und einfache Manipulation der 
Farben. Der EGA-Dialog erlaubt eine völlig neue Mischung der 
sechs EGA-Farbkomponenten aller 16 Farbindices. Natürlich ist dies 
auf der VGA-Karte wieder nichts anderes als die Auswahl anderer 
DAC-Register, so daß bei der VGA-Karte mit dem VGA-Paletten- 
dialog die Möglichkeit besteht, die RGB-Farbanteile des aktuellen 
DAC-Registers mithilfe von drei Rollbalken neu zu mischen. Da- 
durch kann sich jede Turbo-Vision-Applikation auf einer VGA-Karte 
mit 16 aus 262144 Farben darstellen. 


Dies ist durchaus mehr als nur Spielerei, da durch eine je nach Pro- 
gramm verschiedene Farbgebung die Individualität der sonst so 
ähnlichen Turbo-Vision-Applikationen erheblich gesteigert werden 
kann. (Ich persönlich habe durchaus eine ganze Weile in der 
Turbo-IDE nach den Farbeinstellungen gesucht, die mir die Arbeit 
erleichtern.) 

Wenn der Anwender die Möglichkeit haben kann, die Farbgebung 
auch in feinsten Nuancen seinem persönlichem Geschmack anzu- 
passen, so sollte man ihm diese Möglichkeit auch zugänglich machen. 
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Die UNIT VGA enthält die Funktionen zur Manipulation der EGA- 
/VGA-Palettenregister bzw. DAC-Register über das BIOS, die hierfür 
benötigt werden. Diese sollen jetzt kurz vorgestellt werden. Um die 
Palettenfunktionen sinnvoll handhaben zu können, müssen die 
Farbdaten jedoch erst einmal angemessen verpackt werden. Hierfür 
sind in der UNIT VGA eine Reihe von Datenstrukturen deklariert, 
die jeweils für verschiedene Aufgaben optimiert sind. 


{ EGA-Palettenregister: } 
pPaletteRegs = *tPaletteRegs; 
tPaletteRegs = Record 
Palette:Array[0..15] of byte; 
Overscan:Byte; 

end; 


{ Für einzelnes DAC-Register: } 
pRGBTriple = *tRGBTriple; 
tRGBTriple = Record 

Red,Green ‚Blue: Byte; 

end; 


{ Für alle VGA-DAC-Register: } 
pRGBPalette = *tRGBPalette; 
tRGBPalette = Array[0..255] of tR@BTriple; 


{ Für die aktuell selektierten VGA-DAC-Register: } 
pRGB16Page = *tRGBl6Page; 
tRGB16Page = Array[0..15] of tRGBTriple; 


{ Für eine VGA-Farbseite: } 
pRGB64Page = *tRGB64Page; 
tRGB64Page = Array[0..63] of tRGBTriple; 


Für die Manipulation der EGA-Palette ist vor allem der Datentyp 
tPaletteRegs sehr nützlich. Auf exakt die gleiche Art wird natürlich 
auch auf die VGA-Palette zugegriffen. Um jedoch die 16 durch die 
EGA-Palettenregister ausgewählten DAC-Register manipulieren zu 
können, ist eine IRGB16Page erforderlich. Will man eine ganze 
VGA-Farbseite kontrollieren, so geht dies mit der IRGB64Page. 


Die UNIT VGA stellt folgende Palettenfunktionen zur Verfügung: 
{ EGA-Palettenfunktionen: } 


Function GetPaletteReg(Index:Byte):Byte; 

procedure SetPaletteReg(index,entry:byte); 
procedure GetAllPalette(var Palette:tPaletteRegs): 
procedure SetAllPalette(var Palette:tPaletteRegs); 
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{ VGA-Palettenfunktionen: } 


Procedure GetR&BEntry(Index:Byte;var RGB:tRGBTriple); 
Procedure SetR&BEntry(Index:Byte;RGB:tRGBTriple); 
Procedure GetR@BPalette(var RGBPalette:tRGBPalette); 
Procedure SetR@BPalette(var RGBPalette:tRGBPalette); 
Procedure GetRGB16Page(Index:Byte;var RGBPage:tRGB16Page); 
Procedure SetRGB16Page(Index:Byte;var RGBPage:tRGB16Page); 
Procedure GetVgal6Colors(var RGBPage:tRGB16Page): 
Procedure SetVgal6Colors(var RGBPage:tRGB16Page) ; 


Procedure SelectColorPage(Page:Byte); 
Procedure SetColorPageMode(Mode:Byte): 
Function ColorPageMode:Byte; 
Function ColorPage:Byte; 


Am nützlichsten für die VGA-Karte dürften die Routinen GET- 
/SETVGA16Colors sein, die jene 16 DAC-Register einlesen oder be- 
schreiben, die durch die EGA-Palettenregister ausgewählt werden. 
In der UNIT PALETTES sind nun zwei Dialoge implementiert, die es 
dem Anwender erlauben, mithilfe dieser Palettenfunktionen die 
Farbeinstellungen bequem zu verändern. 
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Unit mit Dialogen zur Manipulation der EGA-/VGA-Paletten } 
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{ 
{ 
{ 
{ 
{ 


unit palettes; 

interface 

uses dialogs,views,Drivers,vga,Objects ‚Commands; 
{ Paletten-Standardbelegungen: } 

const StdEgaPalette:tPaletteRegs = 


(Palette: ($00,$01,$02,$03,$04,$05,$14.$07,$38,839,$3A,$3B,$3C,$3D., $3E 
$3F) ;OverScan:0); 


StdVGAColors: tRGBl6Page = 
(RED: $00 ;GREEN: $00;BLUE:$00). {Black EGA 0} 


(RED: $00; GREEN: $00:BLUE:$2A), {Blue EGA 1} 
(RED: $00 GREEN: $2A:BLUE:$00). (Green EGA 2} 
(RED: $00;GREEN: $2A:BLUE:$2A), {Cyan EGA 3} 
(RED: $2A;GREEN:$00:BLUE:$00), {Red EGA 4} 


(RED: $2A:GREEN: $00:BLUE:$2A), (Magenta EGA 5} 
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(RED: 
(RED: 
(RED: 
(RED: 
(RED: 
(RED: 
(RED: 
(RED: 
(RED: 


$2A:GREEN: 
$2A:GREEN: 
$15:GREEN: 
$15;GREEN: 
$15:;GREEN: 
$15;GREEN: 
$3F:GREEN: 
$3F:GREEN: 
$3F; GREEN: 


$15;BLUE: 
$2A; BLUE: 
$15;BLUE: 
$15;BLUE: 
$3F:BLUE: 
$3F; BLUE: 
$15;BLUE: 
$15; BLUE: 
$3F : BLUE: 


$00). 
$2A), 
$15), 
$3F), 
$15), 
$3F), 
$15), 
$3F), 
$15), 


{Brown 

{Lt. Gray 
{Gray 

{Lt Blue 
{Lt Green 
{Lt Cyan 
{Lt Red 

{Lt Magenta 
{Yellow 


(RED: $3F ;GREEN: $3F:BLUE:$3F)): {White EGA 63} 


type pPaletteView = *tPaletteView; 
tPaletteView = object(tView) 
constructor init(var Bounds:tRect); 
procedure Draw; virtual; 


end; 
pColorBoxes = *“tColorBoxes; 
tColorBoxes = object(tCheckBoxes) 


constructor init(Bounds:tRect): 
procedure Press(item:integer); virtual: 
procedure MovedTo(item:integer); virtual; 


end: 


pColRadioButtons 
tColRadioButtons 
constructor init(Bounds:tRect); 
procedure Press(item:integer); virtual; 
procedure MovedTo(item:integer); virtual; 


end; 


pEGAPaletteD1g 


procedure 
procedure 
procedure 
Function 

procedure 


end; 


*tColRadioButtons:; 
Object(tRadioßButtons) 


*tEGAPaletteDlg; 
tEGAPaletteDIg = object(tDialog) 
ThePalette:tPaletteRegs; 
Index:pRadioButtons; 
Color:pCheckBoxes; 
constructor init(aPalette:pPaletteRegs); 
constructor Load(var S:tStream); 


Store(var S:tStream); 

GetData(var Rec); virtual; 
SetData(var Rec); virtual: 
DataSize:Word; 
HandleEvent(var Event:tEvent); virtual; 


virtual; 


pVGAPaletteDig = *tVGAPaletteDig; 
tVGAPaletteDig = object(tDialog) 
ThePalette:tRGB16Page; 
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EGA 20} 
EGA 7} 
EGA 56} 
EGA 57} 
EGA 58} 
EGA 59} 
EGA 60} 
EGA 61} 
EGA 62} 
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Index:pRadioButtons; 

Red.Green ‚Blue:pScrol1Bar; 

constructor init(aPalette:pRGB16Page):; 

constructor Load(var S:tStream): 

procedure Store(var S:tStream): 

procedure GetData(var Rec): virtual; 

procedure SetData(var Rec); virtual; 

Function DataSize:Word; virtual; 

procedure HandleEvent(var Event:tEvent):; virtual: 
end; 


procedure ModifyEGAPalette(var EgaPalette:tPaletteRegs): 
procedure ModifyVGAPalette(var VgaPalette:tRGBl6Page); 
procedure RegisterPalette; 


const 
rPaletteView:tStreamkec = ( 
objtype : srPaletteView; 
vmtLink : ofs(typeof(tPaletteView)*): 
load : @tPaletteView.Load; 
store : @tPaletteView.Store); 


rColorBoxes: tStreamrec = ( 

objtype : srColorBoxes; 

vmtLink : ofs(typeof(tColorBoxes)*); 
load : @tColorBoxes.Load; 

store : @tColorBoxes .Store); 


rColRadioßButtons: tStreamRec = ( 

objtype : srColRadioButtons; 

vmtLink : ofs(typeof(tColRadioButtons)*): 
load : @tColRadioButtons.Load; 

store : @tColRadioButtons.Store); 


rEGAPaletteDlg: tStreamkec = ( 

objtype : srEGAPaletteDlg: 

vmtLink : ofs(typeof(tEGAPaletteDlg)*): 
load : @tEGAPaletteDig.Load; 

store : @tEGAPaletteDlg.Store); 


rVGAPaletteDlg: tStreamRec = ( 

objtype : srVGAPaletteDig; 

vmtLink : ofs(typeof(tVGAPaletteDlg)*); 
load : @tVGAPaletteDIg.Load; 

store : @tVGAPaletteDlg.Store); 
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implementation 
uses App: 


const egalndex: integer=0; 
vgalndex: integer=0; 


procedure RegisterPalette; 

begin 
RegisterType(rPaletteView); 
RegisterType(rColorBoxes); 
RegisterType(rColRadioButtons); 
RegisterType(rEgaPaletteDlg); 
RegisterType(rVgaPaletteDlg); 
end; 


constructor tColorBoxes.init(Bounds:tRect); 
begin 
Bounds.B.X:=Bounds.A.X + 21; 
Bounds.B.Y:=Bounds.A.Y + 6; 
inherited Init(Bounds, 
NewSItem('Primäres Blau’, 
NewSItem('Primäres Grün', 
NewSItem('Primäres Rot', 
NewSItem('Sekundäres Blau’, 
NewSItem('Sekundäres Grün', 
NewSItem( 'Sekundäres Rot' ,ni1))))))); 
end; 


procedure tColorBoxes.Press(item:integer); 
begin 

Inherited Press(item); 

Message (Owner ‚evBroadCast,cmClusterChanged .@self); 
end; 


procedure tColorBoxes .MovedTo(item:integer); 
begin 

Press(item); 
end; 


constructor tColRadioButtons. init(Bounds:tRect); 
begin 
Bounds.B.X:=Bounds.A.X + 21; 
Bounds.B.Y:=Bounds.A.Y + 16; 
inherited Init(Bounds, 
NewSItem('0 (Schwarz) ', 
NewSItem('1 (Blau)', 
NewSItem('2 (Grün)', 
NewSItem('3 (Cyan)', 
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NewSItem('4 (Rot)', 
NewSItem('5 (Magenta) ', 
NewSItem('6 (Braun)', 
NewSItem('7 (Hellgrau)', 
NewSItem('8 (Grau)', 
NewSItem('9 (Hel1Blau)', 
NewSItem('10 (Hellgrün)', 
NewSItem('11 (HellCyan)', 
NewSItem('12 (Hellrot)', 
NewSItem('13 (Hel1Magenta)', 
NewSItem('14 (Gelb)', 
NewSItem('15 (Weiß)' .nil))))))))))))))))) 
end; 


procedure tColRadioButtons.Press(item:integer); 
begin 

Inherited Press(item); 

Message (Owner ‚evBroadCast,cmClusterChanged ‚@self) 
end; 


procedure tColRadioButtons.MovedToCitem:integer): 
begin 

Press(item); 
end; 


constructor tPaletteView.init(var Bounds:tRect); 
begin 
Bounds.B.X:=Bounds.A.X+2; 
Bounds.B.Y:=Bounds .A.Y+16; 
tView.init(Bounds); 
options:=options and not ofselectable:; 
end; 


procedure tPaletteView.Draw: 
var i:byte; 
buf:array[0..15,.0..3] of byte; 
begin 
Fillchar(buf,sizeof(buf),219); 
for i:=0 to 15 do 
begin 
buf[i.,1]:=i; 
buf[i ,3]:=i; 
end; 
writebuf(0.0,2,16.buf); 
end; 


constructor tEGAPaletteDlg.init(aPalette:pPaletteRegs):; 
var R:tRect; 
i:word; 
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begin 

R.Assign(0,0,52,20); 

tDialog.Init(R, 'EGA-Palette'); 
ThePalette:=aPalette*; 

options:=options or ofcenterX or ofcenterY; 
R.Assign(3,2,5,18); 
insert(New(pPaletteView,Init(R))); 
R.Assign(5,2,26,18); 

Index:=New(pColRadioButtons ‚Init(R)); 

Index* .SetData(egalndex); 

Insert(Index); 

R.Assign(28,2,49,8); 

Color:=New(pColorBoxes ‚Init(R)); 
i:=ThePalette.Palette[egalndex]; 
Color*.SetData(i); 

Insert(Color); 

R.assign(32,10,46,12); 
Insert(New(pButton, Init(R, 'O-K-' ‚cmOK,bfNormal))); 
R.assign(32,12,46,14); 
Insert(New(pButton, Init(R, '-C-ancel ' ‚cmCance] ‚bfNormal))); 
R.assign(32,15,46,17); 

Insert (New(pButton, Init(R, '-S-tandard' ‚cmStandard,bfNormal))); 
SelectNext(False); 
end; 


constructor tEGAPaletteDlg.Load(var S:tStream); 
begin 
inherited Load(S); 
getsubviewptr(S, index) ; 
getsubviewptr(S,color); 
S.Read(ThePalette,sizeof(ThePalette)); 
end; 


procedure tEGAPaletteDlg.Store(var S:tStream); 
begin 
inherited Store(S); 
putsubviewptr(S, index); 
putsubviewptr(S,color); 
S.Write(ThePalette,sizeof(ThePalette)); 
end; 


procedure tEGAPaletteDlg.GetData(var Rec); 
begin 
move(thepalette,rec,datasize); 

end; 
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procedure tEGAPaletteDig.SetData(var Rec): 
begin 
move(rec,thepalette,datasize); 
Vga.SetAllPalette(thepalette); 
end; 


Function tEGAPaletteDlg.DataSize:Word; 
begin 

DataSize:=SizeOf(ThePalette); 

end; 


procedure tEGAPaletteDig.HandleEvent(var Event:tEvent):; 
var i:word; 
begin 
inherited handleevent(event): 
if (event.what=evCommand) and (event.command = cmStandard) then 
begin 
ThePalette:=StdEgaPalette; 
SetAllPalette(ThePalette): 
Index*.getdata(egalndex); 
i:=Thepalette.Palette[legalndex]: 
Color*.setdata(i); 
Color*.draw; 
end else 
if (event.what=evBroadcast) and 
(event.command = cmClusterChanged) then 
begin 
if event.infoptr = Color then 
begin 
Index*.getdata(egalndex); 
ThePalette.Palette[egalndex]:=1o(Color*.Value); 
VGA.SetAllPalette(ThePalette); 
ClearEvent(Event); 
end else if event.infoptr=index then 
begin 
Index*.getdata(egalndex); 
i:=ThePalette.Palette[egaindex]; 
Color*.setdata(i): 
Color*.draw: 
end else exit; 
clearEvent(event): 
end; 
end; 


procedure Modi fyEGAPalette(var EgaPalette:tPaletteRegs): 
var pEGA:pEgaPaletteDlg; 
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begin 

Vga.SetAllPalette(EgaPalette); 
pEga:=New(pEgaPaletteDig, Init(@EgaPalette)); 
if Desktop“ .ExecView(pEga)=cmOK then 
EgaPalette:=pEga*.ThePalette; 
Vga.SetAllPalette(EgaPalette); 

end; 


constructor tVGAPaletteDig. init(aPalette:pRGB16Page); 
var R:tRect; 
i:word; 

begin 

R.Assign(0,0,52,20); 

tDialog.Init(R, 'VGA-Palette'); 
ThePalette:=aPalette*; 

options:=options or ofcenterX or ofcenterY; 
R.Assign(3,2,5,18); 

insert(New(pPaletteView, Init(R))); 
R.Assign(5,2,26,18); 
Index:=New(pColRadioButtons, Init(R)); 
Index*.SetData(vgalndex); 

Insert(Index); 

R.Assign(28,3,49,4); 

Red:=New(pScrol1Bar, init(R)); 
i:=ThePalette[vgalndex].red; 

Red“ .SetParams(i,0,63,16,1); 
Red*.Options:=Red*.Options or ofSelectable; 
Insert(Red); 

R.Assign(27,2,49,3); 
Insert(New(pLabel, Init(R, 'Roter Anteil:',Red))) 
R.Assign(28,5,49,6); 

Green:=New(pScrol1Bar, init(R)):; 
i:=ThePalette[vgalndex].Green; 

Green“ .SetParams(i1,0,63,16,1); 
Green*.Options:=Green*.Options or ofSelectable; 
Insert(Green); 

R.Assign(27 ,4,49,5); 
Insert(New(pLabel ‚Init(R, 'Grüner Anteil:',Green))); 
R.Assign(28,7,49,8); 
Blue:=New(pScrollBar,init(R)); 
i:=ThePalette[vgalndex].Blue; 
Blue*.SetParams(i,0,63,16,1); 
Blue*.Options:=Blue*.Options or ofSelectable; 
Insert(Blue); 

R.Assign(27,6,49,7); 
Insert(New(pLabel ‚Init(R, 'Blauer Anteil:',Blue))) 
R.assign(32,10,46,12) 
Insert(New(pButton, Init(R, '0-K-' ‚cmOK,bfNormal))); 
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R.assign(32.12.46,14): 
Insert(New(pButton, Init(R, '-C-ancel ' ‚cmCancel ‚bfNormal))); 
R.assign(32,.15,46.17): 
Insert(New(pButton, Init(R, '-S-tandard' ‚cmStandard.bfNormal))):; 
SelectNext(False); 
end; 


constructor tVGAPaletteDlg.Load(var S:tStream): 
begin 
inherited Load($); 
getsubviewptr(S, index): 
getsubviewptr(S, red): 
getsubviewptr(S.green); 
getsubviewptr(S,blue); 
S.Read(Thepfalette,sizeof(ThePalette)): 
end: 


procedure tVGAPaletteDlIg.Store(var S:tStream); 
begin 
inherited Store(S); 
putsubviewptr(S, index): 
putsubviewptr(S,red): 
putsubviewptr(S,green):; 
putsubviewptr(S,Blue); 
S.Write(Thepfalette,sizeof(ThePalette)); 
end; 


procedure tVGAPaletteDlg.GetData(var Rec): 
begin 

move(thepalette,rec,datasize): 

end; 


procedure tVGAPaletteDig.SetData(var Rec): 
begin 
move(rec,thepalette,Datasize); 
WaitVretrace; 
Vga.SetVgal6Colors(thepalette); 

end; 


Function tVGAPaletteDlg.DataSize:Word; 
begin 

DataSize:=Size0Of(ThePalette); 

end; 


procedure tVGAPaletteDlg.HandleEvent(var Event:tEvent); 
var i:word; 
const locked: integer=0; 
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begin 
inherited handleevent(event); 
if (event.what=evCommand) and (event.command = cmStandard) then 
begin 
ThePalette:=StdVgaColors; 
WaitVRetrace; 
SetVgal6Colors(ThePalette); 
inc(locked); 
Index* .getdata(vgalndex); 
Red*.SetValue(ThePalette[vgalndex].Red); 
Green“ .SetValue(ThePalette[vgalndex].Green); 
Blue*.SetValue(Thefalette[vgalIndex].Blue); 
dec(locked); 
end else 
if (event.what=evBroadcast) then 
begin 
case event.command of 
cmClusterChanged: begin 
inc(locked); 
Index*.getdata(vgalndex); 
Red*.SetValue(ThePalette[vgalndex].Red); 
Green“ .SetValue(ThePalette[vgalndex] .Green); 
Blue*.SetValue(ThePalette[vgalndex].Blue); 
dec(locked); 
end; 
cmScrollBarChanged:if locked = 0 then 
begin 
Index*.getdata(vgalndex); 
ThePalette[Vgalndex].Red:=Red*.Value; 
ThePalette[Vgalndex].Green:=Green“*.Value; 
ThePalette[Vgalndex].Blue:=Blue*. Value: 
WaitVRetrace; 
Vga.SetRGBEntry(GetPaletteReg(vgalndex), 
ThePalette[vgalndex)): 
end; 
else exit; 
end; 
clearevent(event); 
end; 
end; 


procedure ModifyVGAPalette(var VgaPalette:tRGB1l6Page):; 
var pVGA:pVgaPaletteDlg; 
begin 
WaitVRetrace; 
Vga.SetVGAl6Colors(VgaPalette); 
pVga:=New(pVgaPaletteDlg, Init(@vgaPalette)); 
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if Desktop*.ExecView(pVga)=cmOK then 
VgaPalette:=pVga*.thePalette:; 
WaitVRetrace; 
Vga.Setvgal6Colors(VgaPalette): 
end: 


end. 


Der routinierte Turbo-Vision-Programmierer wird das Konzept der 
beide Dialoge schnell durchschauen. Beide besitzen auf ihrer linken 
Seite ein modifiziertes tRadioButtons-Objekt, mit dem die aktuell zu 
verändernde Farbe selektiert wird. Der Deutlichkeit halber wird 
diese Farbe links neben dem tRadioButtons-Objekt durch ein 
tPaletteView-Objekt als einfaches farbiges Feld dargestellt. 


Der EGA-Dialog hat auf der rechten Seite ein leicht modifiziertes 
tCheckBoxes-Objek, mit dem sich die sechs EGA-Farbbits 
(Farbkomponenten) für die aktuelle Farbe einzeln ein- und aus- 
schalten lassen. 


Der VGA-Dialog hat auf der rechten Seite statt dessen drei tScroll- 
Bar-Objekte, mit denen sich jede Farbkomponente in jeweils 64 Stu- 
fen regeln läßt. Die ebenfalls verwendete Routine WaitVRetrace ent- 
stammt der UNIT VGA und verzögert bei Aufruf die weitere Pro- 
grammausführung solange, bis das vertikale Retrace-Signal im Sta- 
tusregister signalisiert, daß die Paletten- oder DAC-Register flacker- 
frei neu gesetzt werden können. 


Das Programm PALDEMO.PAS demonstriert die Verwendung der 
beiden Dialoge: 


program Paldemo; 
uses objects,vga,menus ‚palettes, views, app,drivers,commands ; 


var EgaPalette:tPaletteRegs; 
VgaPalette:tRGB16Page; 
type 


pPalApp = *tPalApp; 

tPalApp = object(tApplication) 

procedure initmenubar: virtual; 

procedure initstatusline; virtual; 

procedure HandleEvent(var Event:t£vent); virtual; 
end; 


procedure tPalApp.InitMenuBar: 
var 
R: TRect; 
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begin 
GetExtent(R); 
RB.Y:=RAY#+L; 
MenuBar := New(PMenuBar, Init(R, NewMenu( 
NewSubMenu( '-D-atei' ‚hceNocontext, NewMenu( 
StdFileMenultems(nil)), 
NewSubMenu( '-T-est' ‚ncNoContext ‚NewMenu( 


NewItem('-E-ga Palette’, '', kbNoKey, cmModifyEgaPal, 
hcNoContext, 
NewItem('-V-ga Palette’, '', kbNoKey, cmModifyVgaPal, 


hcNoContext,nil))) 
nil))))); 
end; 


procedure tPalApp.InitStatusLine; 
var 
R: TRect; 
begin 
GetExtent(R); 
R.AY:=RBY-1; 
StatusLine:= 
New(pStatusLine, Init(R, 
NewStatusDef(0, $FFFF, 
StdStatusKeys(nil), 
nil))); 
end; 


procedure tPalApp.HandleEvent(var Event:tEvent); 
begin 
inherited HandleEvent (Event); 
if (Event.what=evCommand) then 
case Event.command of 
cmModi fyEgaPal :Modi fyEGAPalette(EgaPalette); 
cmModi fyVgaPal :Modi fyVGAPalette(VgaPalette); 
else ClearEvent(event); 
end; 
end; 


var TheApp:pPalApp; 

begin 
EgaPalette:=StdEgaPalette; 
VgaPalette:=StdVgaColors; 
TheApp:=New(pPalApp, init); 
TheApp* .Run; 
Dispose(TheApp, done); 

end. 
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8.4 


Im übrigen ist es völlig unerheblich, ob diese Dialoge in der ’nor- 
malen’ Turbo-Vision genutzt werden oder in der TGV aus Kapitel 
14. Die Palettenregister bestimmen die Farben in jedem Fall. Es ist 
bei der TGV:jedoch darauf zu achten, daß EGA-/VGA-Karten bei ei- 
nem Wechsel des Videomodus, wie er in der TGV angeboten wird, 
normalerweise die Palettenregister auf die Standardwerte zurückset- 
zen. Manche VGA-Karten bieten die Möglichkeit, dieses Verhalten 
abzuschalten (vergl. Kapitel 8.4 über die Alternate Select-Funktion 
12h von Interrupt 10h). 

Wenn aber eine EGA-Karte vorliegt oder das BIOS diese Funktion 
nicht unterstützt, so müssen die Palettenregister nach jedem Mo- 
duswechsel explizit wieder auf die vom Anwender ausgewählten 
Farben gesetzt werden. 


Weitere Funktionen des EGA-/VGA-BIOS 


Das EGA-/VGA-BIOS enthält noch weitere Graphik-Funktionen, die 
für den Programmierer von Interesse sind oder sein können. Diese 
sollen hier vorgestellt werden. Vor allem die VGA-Karte bietet z.T. 
umfangreiche Informations-Funktionen. 


Interrupt 10h, Funktion 0Ch: ’Set Graphics Pixel’ 


IN: 
AH: och 
BH: Seite 
cx: Spalte (X) 
DX: Zeile (Y) 
OUT: - 


Anm.: Die Funktion funktioniert - soweit mir bekannt - auch in al- 
len erweiterten Graphikmodi der diversen VGA-Nachfolger (SVGA 
u.a.). 


Interrupt 10h, Funktion ODh: ’Get Pixel Color’ 


IN: 
AH: 0Dh 
BH: Seite 
cx: Spalte (X) 
DX: Zeile (Y) 
OUT: 


AL: Farbnummer des Bildpunktes 
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Interrupt 10h, Funktion 12: ’Alternate Function Select’ 


Diese Funktion bietet eine Reihe von Unterfunktionen an, die über 
das BL-Register ausgewählt werden. Bei fast allen Unterfunktionen 
wird im AL-Register der Wert 12h zurückgegeben, wenn die Funk- 
tion vom BIOS unterstützt wird. 


Unterfunktion 10h: ’Get Video-State-Informations’ 


IN: 
AH 12h 
BL: 10h 
OUT: 
BH: 0/1: Farbe (Portadressen ab 3Dxh)/Monochrommodus 
(Portadressen ab 3BXh) 
BL: Anzahl der Speicherblöcke zu 64KB - 1 
CH: ’Feature-Control-Bits’ (EGA) 
CL: DIP-Schalterstellung 
Unterfunktion 20h: ’Install New Print Screen Routine’ 
IN: 
AH 12h 
BL: 20h 
OUT: 
AL: 12h, wenn die Funktion implementiert ist 


Anm.: Die Funktion schaltet - wenn vorhanden - die Printscreen- 
Funktion so um, daß der 43/50-Zeilen Modus richtig gedruckt wird. 
Um in einem Farbgraphikmodus eine einfache Bildschirmhardcopy 
vorzunehmen, sollte auf den MS-DOS-Treiber GRAPHICS.COM zu- 
rückgegriffen werden. 


Unterfunktion 30h: ’Select Vertical Resolution’ (VGA) 


IN: 
AH: 12h 
BL: 30h 
AL: 0: 200 Scanzeilen 
1: 350 Scanzeilen 
2: 400 Scanzeilen 
OUT: 


AL: 12h, wenn die Funktion implementiert ist 
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Unterfunktion 31h: ’ Save Palette Registers at Mode Reset’ 


IN: 


12h 
31h 


0/1 = Bei Modus-Änderung Register neu 
initialisieren/alte Werte belassen 


12h, wenn Funktion vom BIOS unterstützt wird 


Anm.: Vergleiche Hinweise in Kapitel 8.3. 
Unterfunktion 32h: ’Switch CPU-Access to Videomemory’ 


IN: 


12h 
32h 
0/1 = CPU-Zugriff erlauben/unterbinden 


12h, wenn die Funktion vom BIOS unterstützt wird 


Unterfunktion 33h: ’Grayscale Palette-Registers at Mode Reset’ 


IN: 


12h 


33h 
0/1 = Farbwerte in Graustufen umrechnen / 
unverändert lassen 


12h, wenn die Funktion vom BIOS unterstützt wird 


Unterfunktion 34h: ’Cursor-Emulation ON/OFF’ (VGA) 


IN: 


12h 
34h 
0/1 = Cursoremulation ein-/ausschalten 


12h, wenn die Funktion unterstützt wird 
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Unterfunktion 35h: ’Select Active Display Adapter’ 


IN: 
AH: 12h 
BL: 35h 
AL: 0: Alternativen Adapter einschalten 


1: VGA-Adapter einschalten 

2: Aktiven Monitor auschalten 

3: Inaktiven Monitor einschalten 
ES:DX: Zeiger auf 128-Byte-Sicherungspuffer 


OUT: 

AL: 12h, wenn die Funktion implementiert ist 
Unterfunktion 36h: ’Aktivate Monitor Refresh’ 
IN: 

AH: 12h 

BL: 36h 

AL: 0/1 = Refresh ein-/auschalten 


Anm.: Wird der Bildschirmrefresh gesperrt, so schaltet dies den 
Monitor praktisch aus. 


Interrupt 10h, Funktion 1Ah: ’Get/Set Display Combination’ 


IN: 

AH: 1Ah 

AL: 0: Get Display Combination 

1: Set Display Combination 

BL: Code aktiver Bildschirm (Bei AL = 1) 

BH: Code für inaktiven Bildschirm (Bei AL = D) 
OUT: 

AL: 1Ah, wenn die Funktion unterstützt wird 

BL: Code aktiver Bildschirm (Bei AL = 0) 

BH: Code für inaktiven Bildschirm (Bei AL = 0) 


Folgende Codes sind definiert: 

0: Kein Monitor 

1: MDA mit Monochrom-Monitor 
2: CGA mit Farbmonitor 
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Tabelle 8.2: 
Video-Info-Ta- 
belle der VGA- 
Karte 


: EGA mit Farb-Graphikmonitor 

: EGA mit Monchrommonitor 

: PGA mit Farb-Graphikmonitor 

VGA mit monochromen Monitor 

: VGA mit Farbmonitor 

Ah: MCGA mit digitalem Farbmonitor 

Bh: MCGA mit analogem Monochrommonitor 
Ch: MCGA mit amalogem Farbmonitor 


Interrupt 10h, Funktion 1Bh: ’Get Video State Info’ 


onawn 


IN: 
AH 1Bh 
BX: 00h 
ES:DI: Zeiger auf 64-Byte-Tabelle 
OUT: 
AL: 1Bh, wenn Aufruf vom BIOS unterstützt wird 


Anm.: Den Aufbau der 64-Byte-Tabelle zeigt Tabelle 8.2. Die Daten 
werden bei manchen Graphikadaptern in den erweiterten Video- 
modi nicht korrekt gesetzt (und die Daten der Standard-VGA-Modi 
sind bekannt), so daß diese Funktion zwar sehr nützlich sein kann, 
aber es durchaus nicht immer ist, zumindest nicht zur Analyse der 
Parameter von erweiterten Graphikmodi. 
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Tabelle 8.2: Fortsetzung 


[o) 
f 
8 


terfunktion 30h) 


Die Info-Flags aus Tabelle 8.2 haben folgende Bedeutung: 


lee) 


jes! 
> 


Sjels|sısie DIN 
&|= 


oO 


rim lvlir- Im Im also 
=} 
® 


N Im 
17 


Bit Bedeutung, wenn gesetzt 
? 
Grausummierung aktiviert 
Monochrom-Monitor aktiv 


Cursor-Emulation ist aktiv 
0/1 = Höchstes Attributbit ein Farbbit/schaltet Blinken 


0 
1 
2 
3 Palette wird beim Moduswechsel gesichert 
4 
5 
6,7 reserviert 
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Das Status-Byte aus Tabelle 8.4.1 hat folgende Belegung: 
Bit Bedeutung, wenn gesetzt 


0 512-Zeichen-Zeichensatz aktiv 

1 Dynamic Save Area’ aktiv 

2 Textzeichensatz wird bei Modus-Wechsel neu gesetzt 

3 Graphikzeichensatz wird bei Moduswechsel neu gesetzt 
4 Palettenregister werden bei Moduswechsel neu gesetzt 


5.7 Teserviert 


Interrupt 10h, Funktion 1Ch: ’Save/Restore Video State’ 


Unterfunktion Oh: ’Get State Buffer Size’ 


IN: 
AX: 
CX: 


OUT: 
AL: 
BX: 


1C00h 

Sicherungsmodus, Bits 

0: Sichere Video-Hardware-Status 
1: Sichere BIOS-Datenbereich 

2: Sichere DAC- und Farbregister 


1Ch, wenn die Funktion unterstützt wird 
Erforderliche Puffergröße in 64-Byte-Blöcken 


Unterfunktion 1: ’°Save Video State’ 


IN: 


1C01h 
Modus 
Adresse eines Puffers für Sicherungsdaten 


1Ch, wenn die Funktion unterstützt wird 


Unterfunktion 2: ’Restore Video State’ 


IN: 


1C02h 
Modus 
Adresse des Sicherungspuffers 


1Ch, wenn die Funktion unterstützt wird 
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8.5 


8.5.1 


Verschiedene VGA-Kartenhersteller bieten neben diesen Funktionen 
noch eine Reihe weiterer BIOS-Funktionen an, mit denen etwa auf 
manchen Karten spezielle Videomodi initialisiert werden können. 
So existieren u.a. auf ET4000-VGA-Karten sogenannte High-Color- 
Modes, in denen gleichzeitig bis zu 64K an Farben darstellbar sind. 
Eine detaillierte Darstellung dieser Modi muß an dieser Stelle aber 
allein schon aus Gründen des Umfangs unterbleiben. 


Diese Funktionen können (bei seriösen Herstellern) entweder der 
mitgelieferten Dokumentation der Graphikkarte oder einem Techni- 
schen Handbuch entnommen werden. 


Die Programmierung der EGA-/VGA-Karte 


Ich will im ersten Teil dieses Kapitels einige Routinen vorstellen, die 
man zur Programmierung der EGA-/VGA-Karte nutzen kann. Sie 
sind Teil der UNIT VGA. Sie befassen sich mit der Art und Weise, 
wie man die Register der EGA-/VGA-Karte in den verschiedenen 
Lese- und Schreibmodi programmieren muß, um das gewünschte 
Ergebnis zu erzielen. 


Die Palettenfunktionen des EGA-/VGA-BIOS wurden bereits in Ka- 
pitel 8.3 vorgestellt. 


Pixel Setzen 


Die UNIT VGA bietet zwei Funktionen zum Setzen von Pixeln an. 
Die eine Funktion ruft einfach die entsprechende BIOS-Funktion 
auf, die zweite demonstriert den Umgang mit den Registern des 
Graphikcontrollers. 


procedure BIOSPutPixel(x,y:integer; color:byte); assembler; 
{ BIOS-Funktion OCh, Intr 10h } 

asm 

mov ah,0Ch 

xor bh,bh 

mov CX,X 

mov dx,y 

mov al,color 

int 10h 

end; 


Die Prozedur Puipixel, die direkt auf die EGA-/VGA-Register zu- 
greift, wurde in mehrere Teilaufgaben (sprich Routinen) zerlegt. Die 


erste, _getvgaoffs, setzt das DI-Register auf den korrekten Bild- 
schirmspeicheroffset zu den Koordinaten x und y, die in den CPU- 
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Register AX und BX übergeben werden. Die zweite, die Routine 
_pupixel, ist für das Setzen des Bildpunktes zuständig. Ihr wird der 
Bildspeicheroffset übergeben, die ’restliche’ X-Koordinate (Byteoff- 
set) und natürlich die Farbe. Diese Technik der sehr weitgehenden 
prozeduralen Zerlegung einer Aufgabe wird auch in der TGV 
(Kapitel 14) ausgiebig angewandt. 


Der Vorteil liegt auf der Hand: Je präziser die verschiedenen Teil- 
aufgaben voneinander unterschieden und getrennt werden, desto 
universeller ist die Anwendbarkeit der Module. Der Nachteil liegt in 
der Häufigkeit von Aufrufen, die Zeit kosten. 


Um diesen Nachteil zu minimieren, ist es günstig, Parameter stets 
über die CPU-Register statt über den Stack zu übergeben. Die zwei- 
te Maßnahme besteht darin, die Routinen als NEAR zu implementie- 
ren. Man kann im Turbo-Assembler-Handbuch leicht nachlesen, daß 
die Zeit, die die CPU für einen FAR-CALL benötigt, praktisch dop- 
pelt so hoch ist wie für einen NEAR-CALL. Bei sehr häufig auftre- 
tenden Aufrufen sollte man so etwas berücksichtigen. 


{ Zeilenoffset (VGA) berechnen } 
{ EGA/VGA : (Y * 80) + (X SHR 3) } 
{ input: ax=y } 
{ bx=x } 
{ output: di = offset(x,y) } 
procedure _getvgaoffs; near; assembler; 
asm 

mov dx,80 

mul dx 

mov c1,3 

shr bx,cl 

add ax,bx 

mov di,ax 
end; 


{ DI auf nächste Zeile setzen: } 
procedure _getvgadelta; near; assembler; 
asm 

add di,80 
end; 


{ Bildschirmoffset 'offiziell' berechnen: } 
function getoffs(x,y:word):word; assembler; 
asm 

mov ax,y 

mov bx,x 

call _getvgaoffs 

end; 
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Die in der Prozedur _Putpixel benutzten Konstanten sind Portadres- 
sen und Registerindices. Sie sind in der UNIT VGA deklariert. 


{ Inut: X =X } 
{ DL = Farbe 
{ ES:DI = Zeiger auf den Videospeicher } 
procedure _putpixel; near; assembler; 
asm 
mov CX,bx 
and cx,7 
mov al,$80 
shr al,cl { AL = 80h shr (x and 7) = BitMask } 
push ax 
mov c1,3 
shr bx,cl 
mov c1,dl 
mov dx,_getri_ { DX = Indexport } 
mov al,gc_setreset { Index für Set-/Reset-Register } 
out dx,al 
inc dx { DX = Datenport } 
mov al,cl 
out dx,al { Farbe ins Set-/Reset-Register } 
dec dx { DX = Indexport } 
mov al,gc_sr_enable 
out dx,al { Index für Set-/Reset-Enable } 
inc dx { DX = Datenport } 
mov al,OFh 
out dx,al { Fh = Alle Ebenen zulassen } 
dec dx { DX = Indexport } 
mov al,gc_bitmask 
out dx,al { BitMask-Register adressieren } 
inc dx { DX = Datenport } 
pop ax 
out dx,al { Bitmaske setzen } 


inc byte ptr es:[di+bx] 
{ Lese- & Schreibzugriff auf die } 


{ Speicheradresse } 
mov al,$FF 
out dx,al { Wieder alle Bits zulassen } 
dec dx { DX = Indexport } 
mov al,gc_sr_enable 
out dx,al 
ine dx { DX = Datenport } 
xor al,al 
out dx,al { Alle Ebenen des Set-/Reset sperren } 


end; 
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Man beachte vor allem die Zeile mit dem Bildspeicherzugriff. Der 
Sinn der INC-Anweisung ist natürlich nicht, irgendeinen Wert zu er- 
höhen. Der Effekt eines CPU-Zugriffs auf den EGA-/VGA-Bildspei- 
cher hängt vom Schreibmodus ab, in dem sich die Graphikkarte ge- 
rade befindet, und davon, welchen Wert das Set-/Reset-Enable-Regi- 
ster aufweist. Da vorher alle Ebenen für das Set-/Reset-Register ent- 
sperrt wurden, kommt es nicht mehr darauf an, welchen Wert die 
CPU bei einem Schreibzugriff auf den Datenbus legt, sondern nur 
noch darauf, daß überhaupt ein Schreibzugriff erfolgt. Da aber die 
Daten im Bildspeicher mit den alten Daten verknüpft werden sollen 
(es soll ja nur ein Pixel gesetzt werden), so müssen vorher die 
Latchregister des Graphikcontrollers geladen werden. Dies geschieht 
bei einem Lesezugriff der CPU auf den Videospeicher. Und genau 
dies muß die CPU auch tun, wenn sie ein Byte im Videospeicher 
inkrementieren (oder auch dekrementieren) will: Einen Lesezugriff 
und einen Schreibzugriff. Jeder beliebige andere Befehl, der einen 
Lese- und einen Schreibzugriff der CPU impliziert, wäre mithin ge- 
nausogut geeignet. 


Procedure PutPixel(x,y:integer;color:byte); assembler: 
asm 
mov es,segA000 { ES = SegA000 } 
mov axX,y 
xor bx,bx 
call _getvgaoffs 
mov bx,x 
mov dlI,color 
call _putpixe] 
end: 


Zum Abschluß nun noch eine Zine-Routine in Assembler, die geeig- 
net ist, in den 16-Farben-Modi der EGA-/VGA-Karte Linien schnellst- 
möglich zu ziehen. 


{ Line-Prozedur nach dem Bresenham-Algorithmus: } 
procedure Line(x1,y1,x2,y2:integer;color:byte):; assembler; 
var yy,d_x,d_y‚r:integer; 
asm 

mov es,seg0040 

mov ax,es:[_textrows] 

mov yy.ax 

mov es,SegA000 

mov bx,x2 

cmp bx,x1 

jae @@1 
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@@1 


@ex 


@@5: 


886: 


083: 


xchg 
mov 
mov 
xchg 
mov 


:MOV 


sub 
mov 
mov 
sub 
jae 
neg 
neg 


:mMOV 


mov 
xor 


call _getvgaoffs 


mov 


bx,x1 
x2,bx 
ax,y2 
ax,yl 
y2,ax 
bx,x2 
bx,x1 { BX=DX } 
d_x,bx 
ax,y2 
ax,yl{AX=DY} 
@@X 
ax 
yy 
d_y,ax 
ax,yl 
bx,bx 


bx,xl 


mov di,color 
call _putpixe] 


xor 


CX,cX 
r.cx 
bx.d_x 
bx,d_y 


bx,x1 
di,color 
_Pputpixel 
@@5 
bx,yl 
bx,y2 
@@4 

yl 

di,yy 
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{ ES:DI = Zeiger auf Bildschirm } 
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8.5.2 


mov ax,d_x 
add r.ax 
mov ax,r 
shi ax,l 
cmp ax.d_y 
jbe @@8 
inc xl 
mov ax,d_y 
sub r,ax 
@@8:mov bx.x1 
mov di,color 
call _putpixel 
jmp 883 
@@4: 
end; 


Schnelle Textausgabe im Graphikmodus 


Das EGA-/VGA-BIOS unterstützt die Textausgabe auch in den Gra- 
phikmodi. Leider unterstützt das BIOS dabei nur Vordergrundfar- 
ben. Obwohl die BIOS-Textausgabe auch im Graphikmodus relativ 
schnell erfolgt, ist es für eine Aufgabenstellung, wie sie etwa die 
TGV darstellt, leider unumgänglich, eine Textausgabe zu entwik- 
keln, die erstens schnell und zweitens mit frei wählbarer Vorder- 
und Hintergrundfarbe läuft. 


Hierfür kommen bei der EGA-Karte prinzipiell zwei und bei der 
EGA-/VGA-Karte drei verschiedene Schreibmodi in Betracht. 
Schreibmodus Null hat wie oben dargelegt eine Eigenschaft, die 
sich für diese Aufgabe als sehr nachteilig erweist: Sowohl Set- 
/Reset- als auch das Bit-Mask-Register müssen vor jedem Zugriff ge- 
setzt werden, und die CPU greift auf den Bildspeicher zu, ohne 
irgendeine andere Information als die Adresse zu transportieren. 


Im Schreibmodus Zwei hingegen übernimmt die CPU die Funktion 
des Set-/Reset-Registers, in Schreibmodus Drei die des Bit-Mask- 
Registers. In beiden Fällen erfüllt der Zugriff also eine differenzierte- 
re Aufgabe als in Schreibmodus Null. Welcher Modus günstiger ist, 
hängt von der gestellten Aufgabe ab. Soll eine Zeichenfolge (oder 
zweifarbige Bitmap) mit gleichbleibender Farbe in den Bildspeicher 
gebracht werden, so ist Modus Drei besser. Er steht nur leider auf 
EGA-Karten nicht zur Verfügung. Für die Aufgabe, die sich bei der 
TGV stellt, müssen Zeichenfolgen mit ständig wechselnden Farb- 
attributen verarbeitet werden. In diesem Fall ist der EGA-/VGA- 
Schreibmodus zwei ebensogut geeignet. 
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Die UNIT VGA enthält für jeden Schreibmodus eine Routine. Diese 
Routinen schreiben allerdings auch nur einfarbige Zeichenfolgen in 
den Bildspeicher und dies auch nur an geraden Bytegrenzen. D.h. 
die Textausgabe ist (in X-Richtung) genauso gerastert, wie im Text- 
modus. Wer einen Text an beliebiger Stelle ausgeben will, mag sich 
die Routinen entsprechend umschreiben. Die Routinen heißen 
PainiStrO, PaintStr2 und PaintStr3. Auf einem 80386 mit 25 MHz 
beträgt der Zeitbedarf für die Ausgabe eines 30-Zeichen-Strings in 
Modus Null 5.3 ms, in Modus Zwei 3.85 ms und in Modus Drei 4.17 
ms. Das BIOS benötigte für die Ausgabe eines gleichlangen Strings 
(nur Vordergrundfarbe) 2.808 ms. 


Da sehr ähnliche Routinen noch einmal in Kapitel 14 besprochen 
werden, soll eine detailliertere Darstellung hier unterbleiben. 
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Disketten und Festplatten 


Man kann sicherlich der Ansicht sein, daß ein Kapitel über Disket- 
ten und Platten überflüssig ist. Nicht deshalb etwa, weil es hierzu 
nichts zu sagen oder zu schreiben gäbe, sondern deshalb, weil es 
nur in Ausnahmefällen sinnvoll ist, eine Anwendung direkt - d.h. 
nicht über das Betriebssystem und in Form von Dateizugriffen - auf 
die Datenträger zugreifen zu lassen. Dieser Meinung bin ich 
übrigens selbst: In einer normalen Anwendung sollte man auf 
keinen Fall "Tricks®’ anwenden. Das Betriebssystem bietet alle 
Möglichkeiten, auf Dateien zuzugreifen, und nur für spezielle 
Aufgaben ist es sinnvoll, direkt die Sektoren einer Platte zu lesen, 
zu schreiben oder zu formatieren. Leider gibt es ab und an 
unglückliche Umstände, unter denen selbst ein sonst zurückhal- 
tender Anwender feststellt, daß er ohne die Hilfe trickreich pro- 
grammierter Hilfsprogramme nicht auskäme, etwa dann, wenn er 
versehentlich eine Datei gelöscht hat. 


Wie dem auch sei, jedenfalls ist der direkte Zugriff auf Platten ab 
und an unumgänglich und man wird leicht feststellen, daß dies 
auch unter Turbo Pascal 7.0 keinerlei Schwierigkeit darstellt - es sei 
denn, man möchte dies aus einem Protected-Mode-Programm her- 
aus. In diesem Fall wird die Sache etwas schwieriger, weil, wie in 
Kapitel 12 noch erläutert wird, etwa die BIOS-Routinen im 
Protected Mode nicht vollständig verfügbar sind. Dies hängt 
natürlich auch etwas davon ab, welche Protected-Mode-Schnittstelle 
man benutzt. Das mit Borland Pascal 7.0 ausgelieferte DMPI 
jedenfalls unterstützt weder den BIOS-Interrupt 13h, noch die DOS- 
Interrupts 25h/26h und auch nicht die DOS-Funktionen 44xxh. 
Deshalb dieses Kapitel. Es soll hier gezeigt werden, wie im Pro- 
tected Mode auf Real-Mode-Interrupt-Routinen zugegriffen werden 
kann und was dabei besonders zu beachten ist. Es wird eine UNIT 
DISK_OBJ vorgestellt, die ein Objekt vom Typ ’tDrive’ definiert, 
über das sowohl im Real als auch im Protected Mode direkt 
Sektoren bzw. Cluster gelesen und geschrieben werden können. 


196 


9,1 


9.1.1 


9 Disketten und Festplatten 


Die Organisation der Datenträger unter DOS 


DOS ordnet die Datenträger eines Systems nach Buchstaben, ange- 
fangen von ’A’ und ’B’ für die Diskettenlaufwerke über ’C’ für die 
erste Festplatte bis maximal ’Z’ für das letzte Laufwerk. Abgesehen 
von den ersten drei Buchstaben, die standardmäßig den Disketten- 
laufwerken und der Festplatte zugeordnet sind, ist die Zuordnung 
beliebig. Laufwerk ’D’ kann also die zweite ’Partition’ der ersten 
Festplatte oder die zweite Festplatte oder ein ’virtuelles’ Disketten- 
laufwerk oder eine CD-ROM sein. Dies hängt davon ab, welche Ge- 
räte vorhanden sind und wie sie eingerichtet wurden. 


Das BIOS des Computers ordnet den physikalischen Geräten Num- 
mern zu. Das erste physikalische (Disketten-) Laufwerk hat die 
Nummer 0, das zweite die Nummer 1. Die erste Festplatte die 
Nummer 80h, die zweite Festplatte die Nummer 81h. Das BIOS 
weiß hingegen nichts davon, ob Laufwerk 80h aus einer oder meh- 
reren 'Partitionen’ besteht und somit logisch den Laufwerken ’C’.’F’ 
zugeordnet ist oder nicht. Soll also ein Programm die Funktionen 
des BIOS nutzen, so muß es vorher herausgefunden haben, wie 
diese Zuordnung von logischen und physikalischen Geräten funk- 
tioniert. Sicherlich ist dies möglich, aber es kann - insbesondere bei 
älteren DOS-Versionen - sehr aufwendig und fehleranfällig sein. Ich 
kann daher nur jedem dringend davon abraten, sich allzusehr mit 
dem BIOS einzulassen. 

Disketten und Festplatten werden ebenso auf zweierlei Weise ein- 
geteilt: physikalisch in Zylinder, Spuren und Sektoren, logisch in 
Partitionen, logische Sektoren und Cluster. 


Die physikalische Aufteilung eines Datenträgers 

Disketten und Festplatten bestehen aus einer (bzw. mehreren) 
magnetisierbaren und drehbaren Scheiben, die einzeln mit separa- 
ten Schreib-/Leseköpfen versehen sind. Die Daten werden in kon- 
zentrischen Spuren auf den Datenträger geschrieben. Alle Spuren, 
die vertikal übereinander (aber auf verschiedenen Seiten) liegen, 
lassen sich somit lesen und schreiben, ohne daß der Kopf bewegt 
werden muß. Diese Spuren gehören zum selben Zylinder. 


Eine Spur wird zusätzlich noch (ähnlich einer Torte) in Sektoren un- 
terteilt, die die kleinste einzeln ansprechbare Dateneinheit des 
Datenträgers darstellen. Die Datenträger werden von DOS stan- 
dardmäßig so formatiert, daß ein Sektor 512 Byte umfaßt. 
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Ein Sektor wird also physikalisch durch drei Angaben bestimmt: 
Zylinder, Kopf (Head) und Sektornummer. Alle BIOS-Routinen 
benötigen diese drei Angaben, um auf einen Sektor zuzugreifen. 
Dabei zählt das BIOS Zylinder- und Kopfnummer von Null an, die 
Sektornummer hingegen von Eins an. 

Natürlich kann man rein logisch auch mit einer Nummer - der logi- 
schen Sektornummer - auskommen, wenn man die Sektoren z.B. 
folgendermaßen durchnumeriert: 

Sektor Nummer 0 ist der erste Sektor der ersten Spur des ersten 
Kopfes. Sektor Nummer 17 (bei 17 Sektoren/Spur) ist der erste 
Sektor der ersten Spur des zweiten Kopfes. 

Nachdem alle Sektoren des ersten Zylinders durchgezählt sind, geht 
es mit dem ersten Kopf des zweiten Zylinders weiter. 

Der Grund für diese Zählweise ist einfach der, daß jede Neuposi- 
tionierung des Schreib-/Lesekopfes Zeit braucht, während die Um- 
schaltung von einem zum anderen Kopf sofort erfolgt. Wenn alle 
Sektoren so durchnumeriert sind, so gelten folgende Formeln zur 
Umrechnung: 


SekTrack 
HeadNo 


Sektoren pro Spur 
Anzahl der Schreib-/Leseköpfe 


LogSektor := Cyl * ( SekTrack * HeadNo ) + Head * SekTrack 

+ PhysSektor - 1; 
Cyl:= LogSektor Div (SekTrack * HeadNo); 
Track:= (LogSektor Mod (SekTrack * HeadNo)) Div SekTrack; 
PhysSektor:= (LogSektor Mod (Sektrack * HeadNo)) Mod SekTrack 
+]; 


DOS unterteilt nun den Datenträger des weiteren in den Datenbe- 
reich und den Bereich für die Verwaltungseintragungen. Der Da- 
tenbereich wird in sogenannte Cluster eingeteilt. Ein Cluster ist die 
kleinste Dateneinheit, unter der DOS auf den Datenbereich zugreift. 
Das heißt, daß eine ein Byte lange Datei dennoch einen Cluster 
belegt. Er kann zwischen einem und üblicherweise maximal acht 
Sektoren umfassen. Bei Festplatten handelt es sich fast immer um 
vier Sektoren/Cluster, d.h. 2048 Byte. 


Der Verwaltungsbereich wird unterteilt in die 'versteckten’ Sektoren 
(nur bei Festplatten), die ’reservierten’ Sektoren (praktisch immer 
genau einer), die FAT (File Allocation Table), und das ’Root'- 
Directory. Der reservierte Sektor enthält den sogenannten "Boot- 
Record’. In ihm ist verzeichnet, wie der Datenträger aufgebaut ist, 
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d.h. wie viele Sektoren eine Spur enthält, wie viele Sektoren die 
FAT umfaßt u.s.w. Sein Aufbau wird weiter unten vorgestellt. Das 
Hauptverzeichnis (Root-Directory) besteht aus einer Anzahl von 
Sektoren, in denen alle Dateien und Verzeichnisse vermerkt sind, 
die nicht in Unterverzeichnissen stehen. Die Anzahl der Einträge im 
Hauptverzeichnis ist immer begrenzt, bei Festplatten meist auf 512. 
Alle anderen Verzeichniseinträge werden in den Unterverzeichnis- 
sen abgelegt, die sozusagen als spezielle Dateien im Datenbereich 
liegen. Ihr Umfang ist nur physikalisch begrenzt. 


Eine Datei ist eine logische Einheit. Es ist keineswegs immer der 
Fall, daß die Datei auf dem Datenträger in einem Stück gespeichert 
wird. Umfaßt eine Datei mehr als einen Cluster, so können diese 
Cluster durchaus an völlig verschiedenen Stellen auf dem Datenträ- 
ger gespeichert sein. Um auf die Datei korrekt zugreifen zu können, 
benötigt das Betriebssystem also Informationen, wo diese Cluster 
auf dem Datenträger liegen. Hierzu reicht es völlig aus, zu wissen, 
wo der erste Cluster der Datei liegt, und weiterhin vom jedem Clu- 
ster zu wissen, wo der nächste Cluster liegt (bzw. ob es sich um 
den letzten Cluster der Datei handelt). Die erste Information - wo 
der erste Datencluster zu finden ist - steht im Verzeichniseintrag der 
Datei, der zweite Teil in der FAT. Die FAT besteht aus einer Tabelle 
von Einträgen - für jeden Cluster einen- , die jeweils die Nummer 
des nächsten Clusters beinhalten, falls dieser existiert oder einem 
speziellen Code für das Dateiende. In der FAT ist ebenfalls ver- 
zeichnet, ob ein Cluster einen schadhaften Sektor enthält. In diesem 
Fall darf der Cluster nicht benutzt werden. 


Die File Allocation Table (FAT) 


Es gibt zwei Sorten von FATs, die 12-Bit-FAT und die 16-Bit-FAT. 
Eine 12-Bit FAT benutzt zur Codierung eines Eintrags genau 12 Bit 
(drei Nibble). Damit lassen sich maximal 212 = 4096 verschiedene 
Cluster durchnumerieren. Diese FATs werden nur bei Disketten und 
sehr kleinen Festplatten (<= 16 MB) verwendet, da DOS nie mehr 
als acht Sektoren pro Cluster verwendet. 

(4096 Cluster * 8 Sektoren/Cluster * 512 Byte/Sektor = 16 MByte) 
Alle Datenträger mit mehr als 16 MB benutzen somit 16-Bit-FATs, 
bei denen maximal 210 = 65536 Cluster adressierbar sind. Dies ent- 
spricht bei vier Sektoren pro Cluster einer Kapazität von 128 MB. 
Größere Festplatten müssen also entweder mit acht Sektoren pro 
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Cluster eingerichtet werden, oder aber in mehrere 'Partitionen’ 
(logische Laufwerke) eingeteilt werden. 

Warum es bis DOS 4.0 nur Partitionen von maximal 32 MB gab, 
liegt daran, das bis einschließlich DOS 3.3 auch zur Darstellung der 
Sektornummer maximal 16 Bit zur Verfügung standen, woraus folgt, 
daß 216 + 512 Byte/Sektor = 32 MB maximal adressierbar waren. 
Beiden Sorten von FATs ist eines gemeinsam: Die ersten beiden 
Clusternummern (Null und Eins) stehen nicht zur Verfügung. Die 
Numerierung der Cluster beginnt also nicht mit Null, sondern mit 
Zwei. Der Platz, der dadurch in der FAT frei wird 3 bzw. 4 Byte) 
enthält vielmehr eine Kennung des Datenträgers, den sogenannten 
Media-Descriptor. 


Das Media Deskriptor Byte 
Das Media-Descriptor-Byte hat folgende Belegung: 
Wert Bedeutung 


FEh: 5.25 inch 160 KB 

FFh: 5.25 inch 320 KB 

FCh: 5.25 inch 180 KB 

FDh: 5.25 inch 360 KB 

F9h: 5.25 inch 1.2 MB oder 3.5 inch 720 KB 
FOh: 3.5 inch 1.44 MB 

F8h: Festplatte 


Die 12-Bit-FAT benutzt drei Byte zur Codierung von zwei Einträgen. 
Die Codierung sieht auf den ersten Blick etwas konfus aus, ist aber 
mit Rücksicht auf die Intel-Konvention (Lobyte first) leicht zu 
decodieren. In Turbo Pascal könnte das etwa so aussehen: 


type FATl2Entry = Record 
case byte of 
1:(wl:word; filll:byte;); 
2:(fill2:byte;w2:word;): 
end; 


Function GetClust12Val(Cluster:word;var Entry:FAT12Entry):word; 
begin 
if (cluster and 1)=0 then GetClust12Val:= Entry.wl and $FFF else 
GetClustl2Val:=Entry.w2 shr 4; 
end; 
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Versteht man also die drei Byte als 24-Bit-Zahl in Intelkonvention 
(1. Byte als Bit 0..7, 2. Byte als Bit 8..15 und drittes Byte als Bit 
16..23), so beinhalten die unteren zwölf Bits die Nummer des ersten 
(geraden) Eintrags und die oberen zwölf Bits die Nummer des zwei- 
ten. 


Bei 16-Bit-FATs ist dies natürlich einfacher: Jeder Eintrag ist als ein 
Wort codiert. Liest man eine 16-Bit-FAT z.B. in ein Turbo-Pascal- 
Array der Form ’FAT16 = Arrayl0..MaxNo-1] of Word’ ein, so stehen 
die Einträge direkt als Arrayelemente zur Verfügung. 


Der Code für einen defekten Cluster ist FF7h bei zwölf Bits (bzw. 
FFF7h bei sechzehn Bits), der Code für das Dateiende ist 
FF8h..FFFh bei zwölf Bits bzw. FF8h..FFFFh bei 16-Bit-FATs. Ein 
unbenutzter Cluster wird durch eine 0 gekennzeichnet. Zur 
Darstellung der Clusternummern werden Zahlen bis maximal FFOh 
(FFFOh) verwendet, so daß die FAT bei zwölf Bits maximal 6KB 
(bzw. bei 16-Bit-FATs maximal 128 KB) Speicherraum beanspruchen 
kann. (Eine 16-Bit-FAT läßt sich somit unter Umständen nicht als 
ganzes in einem DOS-Segment unterbringen.) 


Gewöhnlich existieren aus Sicherheitsgründen zwei Ausführungen 
der FAT, da die Dateien nur mit Hilfe der FAT rekonstruiert werden 
können. 


Wird eine FAT beschädigt, so lassen sich die Dateien mit Hilfe der 
zweiten FAT-Kopie wiederfinden und sichern. Jede Änderung an 
der FAT muß somit an beiden FAT-Kopien vorgenommen werden. 
Man sollte sich jedoch darüber im klaren sein, was man tut, wenn 
man an der FAT manipuliert, da eine Zerstörung der FAT den Ver- 
lust aller Daten des Datenträgers zufolge haben kann! 


Der Bootrecord 


Der Bootrecord des Datenträgers steht ab Offset 0 des ersten (und 
meist einzigen) reservierten Sektors. Er hat in Turbo Pascal darge- 
stellt folgendes Format: 


tBootRecord = record 
JUMP: array[1..3] of byte; 
USER: array[1..8] of char; { z.B. 'MSDOS5.0' 


} 
ByteSek :word; { Bytes / Sektor } 
SekClust:byte; { Sektoren/Cluster } 
ResSek :word; { Reservierte Sektoren am Anfang } 
FATs:byte; { Anzahl der FATs } 
} 


RootNo:word; { Anzahl der Einträge im Rootdirectory 
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SekNo:word; { Gesamtzahl der Sektoren 

Media:byte: { Media-Descriptor-Byte 

SekFat:word; { Sektoren für eine FAT 

SekTrack :word: { Anzahl der Sektoren/Spur 

Heads :word; { Anzahl der Köpfe 

HidSek: longint; { Bis Dos 3.3 vom Typ Word 

{--- Erweiterungen ab DOS-Version 4.0 ----- } 

TotalSek:longint; 

{ Existiert nur ‚falls SekNo = 0 (>32MB) } 

BiosDrive:byte; { Bios-Laufwerksnummer } 

Reserved:byte; { Reserviert } 
} 
} 


Extsign:byte; { 29h: Signatur für Extended Boot Record 
SerialNo:longint; { Seriennummer des Datenträgers 
VolLabel :Array[1..11] of Char; 

{ Datenträgerbezeichnung oder "NO NAME" } 
FATSTR:Array[1..8] of Char; { "FAT12' oder "FATI6' } 
end; 


Der Item 'JUMP’ enthält bei bootfähigen Disketten tatsächlich den 
Maschinenbefehl für einen kurzen Sprung, da der Bootrecord bei 
Systemstart vom BIOS geladen und ausgeführt wird. D.h. daß im 
Anschluß an die obigen Daten auf bootfähigen Datenträgern ein 
kurzes Ladeprogramm steht, das das Betriebssystem in den 
Arbeitsspeicher lädt. 

Der Erweiterungsteil ist erst ab DOS-Version 4.0 definiert. Er muß 
an der Stelle ’ExtSign’ den Wert 29h aufweisen. Die Eintragung 
’Totalsek’ wird nur bei ’großen’ (>32 MB) Festplatten benutzt. Dann 
ist 'SekNo’ = 0. 


Verzeichnisse 

Nach dem Bootrecord kommt die FAT. Die Anzahl der Sektoren, die 
von den FAT-Kopien in Anspruch genommen werden, läßt sich 
dem Bootrecord entnehmen. Direkt im Anschluß steht das Haupt- 
verzeichnis (Rootdirectory) des Datenträgers. Wie viel Einträge das 
Hauptverzeichnis umfaßt, steht im Bootrecord. Jeder Eintrag besteht 
aus einem 32 Byte langen Record. Hieraus läßt sich die Anzahl der 
Sektoren des Hauptverzeichnisses entnehmen. Es gilt: 


Sekt./Hauptverz. = (Anz. d. Einträge * 32) Div (Bytes / Sektor). 


An das Hauptverzeichnis schließt sich der Datenbereich, beginnend 
mit Cluster Nr. 2, an. Will man also den Startsektor des Datenbe- 
reichs ermitteln, so gilt: 


DataStart := ResSek + FATSek * FATs + (RootNo * 32) div ByteSek; 
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Tabelle 9.1 zeigt den Aufbau eines Verzeichniseintrags. Die Bitauf- 
teilung des Datums bedeutet Year-Month-Day, die Bitaufteilung der 
Zeit Hour-Minute-Second. Die Bits des Attributbytes sind Archiviert, 
Directory, Volume-Label, Systemfile, Hidden und Readonly. 


Offset ne oe —D Bi | 
0 | IDeinmm —— | | 
8 15 emo — [| 
110 __|Reserviert (Auf Nullzu setzen |]3OWW| 
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Bi Dateigröße in Byte Bet 


Die Einträge Datum und Zeit weisen einige Besonderheiten auf: Die 
sieben Bits für das Jahr basieren nicht auf der Zeitrechnung A.D., 
sondern zählen die Jahre seit 1980, und die fünf Bits für die 
Sekunde müssen noch mit zwei multipliziert werden. 


Unterverzeichnisse haben immer die ’Dateilänge’ Null und weisen 
zwei spezielle Einträge auf. Der erste für das ’Selbst mit dem 
Namen ’.. Der Startcluster, der in diesem Eintrag vermerkt ist, ist 
also genau der Cluster, an dem dieser Eintrag steht. Der zweite 
Eintrag weist auf das übergeordnete Verzeichnis mit dem Namen’... 
Auf diese Weise kann sich DOS oder auch jedes Programm an den 
Verzeichnissen ’entlanghangeln’, ohne zusätzliche Informationen in 
den Diskettenpuffern halten zu müssen. 


DOS tilgt, wenn eine Datei gelöscht wird, nicht den kompletten 
Verzeichniseintrag aus dem Verzeichnis, sondern markiert lediglich 
den ersten Buchstaben mit ASCII 229, ASCII 5 oder ASCII 0. Die In- 
formation, wo eine Datei ihren ersten Datencluster hatte, steht also 
weiterhin zur Verfügung, solange der gelöschte Verzeichniseintrag 
nicht anderweitig benutzt wird. Leider aber eben nur der erste, da 
DOS alle Cluster der Datei in der FAT als frei markiert und somit die 
Information, wo sich die weiteren Cluster befanden, löscht. Größere 
Dateien sind also, wenn sie gelöscht wurden, nicht mehr ohne wei- 
teres zu rekonstruieren, es sei denn, der Zufall (oder die DOS- 
Version oder ein Festplattenkompressor) will es so, daß die Datei 
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lauter aufeinanderfolgende Cluster belegte. In diesem Fall ist die 
Datei solange rekonstruierbar, wie keine neue Datei die (als frei 
markierten) Cluster überschreibt. Die Daten hängen somit u.U. noch 
eine Weile ’in der Luft’, bevor sie unwiderruflich verloren sind. 


Aus diesem Grunde gibt es auch sowohl Utilityprogramme, die 
Dateien so löschen, daß sie wirklich nicht mehr rekonstruiert wer- 
den können, als auch Programme, die es ermöglichen, gelöschte 
Dateien zu rekonstruieren. 


Diskeftenformate 


Im Abschnitt über den Media-Deskriptor wurden die Disketten- 
formate schon erwähnt. Für Disketten und in etwas geringerem 
Maße auch für Festplatten hält sich DOS bei der Formatierung an 
bestimmte Standards, während die Formatierung mit dem BIOS 
zwar bestimmte Standards kennt, diese aber dennoch den BIOS- 
Routinen weitgehend mitgeteilt werden müssen. Darüber hinaus 
bedeutet "formatieren mit dem BIOS (durch Aufruf der entspre- 
chenden Interrupts) lediglich die Einteilung des Datenträgers in 
Spuren und Sektoren durch magnetische Markierungen, während 
das DOS-Programm Format nebenher auch die logische Einteilung 
des Datenträgers vornimmt, d.h. den Bootrecord in den ersten 
Sektor schreibt und die FAT und das Hauptverzeichnis einrichtet. 
Ohne diese Maßnahmen kann der Datenträger unter DOS nicht 
genutzt werden. 


Tabelle 9.2 gibt einen Überblick über die gängigen Datenträger- 
formate, und Tabelle 9.3 gibt ein Beispiel für die physikalische und 
logische Einteilung eines Datenträgers (360 KB-Diskette). 


Wenn man bei der Formatierung einer Diskette vom DOS- 
Programm Format die Fehlermeldung erhält, der Datenträger sei 
unbrauchbar bzw. Spur Null sei fehlerhaft, so entspricht dies nicht 
immer den Tatsachen. Oftmals lassen sich auch solche Disketten 
durch den unerschrockenen Einsatz der BIOS-Formatierungsrouti- 
nen wieder flott machen. Wie man diese Interrupt-Routinen richtig 
einsetzt, wird in Abschnitt 9.2 näher erklärt. 
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Festplatten-Partitionen 

Bei Disketten wird der Item ’HidSek’ des Bootrecords gewöhnlich 
eine Null beinhalten. Bei Festplatten ist dies anders. Festplatten 
können in Partitionen unterteilt sein, d.h. in mehrere logische Lauf- 
werke. Das Programm FDISK führt Partionierungen von Festplatten 
durch. Die Aufteilung in mehrere logische Laufwerke wurde von 
Microsoft mit der DOS-Version 3.3 eingeführt, um auch große 
Laufwerke bearbeiten zu können. Seit der Version 4.0 von MS-DOS 
scheint diese ’Krücke’ entbehrlich zu sein, da die Sektornummern 
hier 32 Bit umfassen können. Tatsächlich ist sie immer noch von 
Vorteil und inzwischen fast schon wieder unentbehrlich. Nimmt 
man z.B. eine moderne 470 MB-Festplatte, so läßt sich diese nur 
dann mit einer Partition formatieren, wenn entweder 16 Sektoren / 
Cluster benutzt werden oder aber die Sektorgröße auf 2048 Byte 
heraufgesetzt wird, was beides nicht sonderlich günstig ist. Die 
DOS-Standard-Parameter für Festplatten von 512 Byte/Sektor und 
vier Sektoren / Cluster erlauben hingegen bei maximal 210 Clustern 
nur Festplattenpartitionen bis maximal 216 + 4+*s12 Bytes = 128 MB 
und bei acht Sektoren / Cluster maximal 256 MB. Ein weiterer 
Vorteil der Partionierung von Festplatten besteht darin, daß mehrere 
Betriebssysteme auf einer Festplatte untergebracht werden können. 


Die Festplatte muß somit einen Bereich aufweisen, auf dem ver- 
zeichnet wird, ob und, wenn ja, wie die Festplatte unterteilt wurde. 
FDISK partioniert Festplatten immer so, daß jede Partition mit dem 
ersten Sektor und Kopf eines Zylinders beginnt, und der 'versteckte’ 
Bereich vor dem eigentlichen Beginn umfaßt praktisch immer eine 
Spur, so daß die Anzahl der versteckten Sektoren 17 (bei 17 
Sektoren / Spur) betragen wird. Der erste Sektor im versteckten 
Bereich enthält die Partitionsdaten. Diese bestehen aus genau vier 
Records für maximal vier Partitionen, wovon DOS meines Erachtens 
aber stets nur die ersten beiden benutzt, den ersten für die Daten 
der Partition, die beschrieben wird, und den zweiten für die 
Beschreibung der jeweils nächsten Partition. Die ’nächste’ Partition 
der ersten Partition ist bei mehr als zwei Partitionen jedoch nicht 
die zweite Partition, sondern eine Zusammenfassung aller weiteren 
Partitionen. Dies muß bei der Interpretation der Partitionsdaten stets 
beachtet werden. 


Der Sektor, der die Partitionsdaten enthält, hat dabei folgendes 
Format: 
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tPartition = Record 

Bootind:byte: { $80: bootable, $00: nicht bootable } 
Shead:byte; { Erster Kopf der Partition } 
SSekCy1 :word; 


} 
{ +----+ = StartSektor(6 Bit: <=63 } 
{ ERBEN rn + = StartZylinder (10 Bit: <= 1023 } 
{ SSek=SSekCyl] and $3F } 
{ Scyl=Hi(SSekcyl) + (SSekCyl and $C0) sh] 2 } 
SysInd:byte; 


{ Sysind=1: primary Dos Area, 12-Bit-FAT } 
{ Sysind=4: primary Dos Area, 16-Bit-FAT } 
{ Sysind=5: extended Dos Area, 16-Bit-FAT } 
EHead:byte; { Letzter Kopf der Partition } 
ESekCy1:word; { Endsektor & Endzylinder wie oben } 
PreSek :longint; { Vorsektoren } 
TotalSek:longint; { Gesamtzahl der Sektoren in der Part. } 


end; 


tBootSector = Record 

Reserved :arrayl[1..$1BE] of byte; 

Partition:array[l..4] of tPartition; 

Signature:word; { Die Signatur muß den Wert $AA55 haben ! } 
end; 


Die Codierung von Startsektor und -zylinder erfolgt in der typischen 
BIOS-Manier, die sich auch bei den BIOS-Interrupts antreffen läßt, 
in einem Word. 


Für den Zylinder stehen zehn Bits zur Verfügung, wodurch die 
Anzahl auf 1024 beschränkt bleiben muß, für den Sektor sechs Bits 
(1..63). An sich ist die Kenntnis der genauen Struktur des 
Datensatzes nur notwendig, wenn man die Disketten-Interrupts des 
BIOS nutzen will. Denn dann muß man die Partitionsdaten lesen, 
um zu erfahren, wie viele Laufwerke die Festplatte enthält und wo 
diese beginnen. Benutzt man hingegen die Interrupts 25h/26h von 
MS-DOS (über die der Datenzugriff meiner Erfahrung nach am 
schnellsten und einfachsten erfolgt), so braucht man dies alles nicht 
zu wissen. In diesem Fall ist es allein notwendig, den Bootrecord 
aus Sektor Null des logischen Laufwerks zu lesen. Die versteckten 
Sektoren sind allerdings über diese Interrupts auch gar nicht 
zugänglich, da sie negative Nummern haben müßten. 


Will man aber partout die versteckten Sektoren lesen oder be- 
schreiben, so kann man dennoch DOS benutzen: Die DOS-Funktio- 
nen $44xx des Interrupts 21h ermöglichen den Zugriff auf diese 
Sektoren, da bei diesen Funktionen das jeweilige Laufwerk eben- 
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falls über Sektor/Spur/Kopf adressiert wird. Das jeweilige Laufwerk 
beginnt jedoch stets mit Sektor:Spur:Kopf = 0:0:0, bei dem ersten 
versteckten Sektor. Der Datenbereich beginnt dann bei Sektor 


DataStart := HidSek+ResSek+Fats * SekFat + (RootNo * 32) Div ByteSek; 


Dagegen muß bei Nutzung der BIOS-Interrupts der durch die Parti- 
tionsdaten gegebene Offset addiert werden. Die berechnete Sektor- 
nummer muß dann also nicht nur (wie oben erläutert) wieder in 
Kopf/Spur/Sektor zerlegt werden, sondern die Angaben der Parti- 
tionstabelle über Start- Sektor/Kopf und Spur müssen wiederum 
addiert werden. 


Nach all diesen etwas verwirrenden Ausführungen hoffe ich, daß 
das Beschriebene verständlicher wird, wenn die Interruptschnittstel- 
len erläutert sind und die UNIT DISK_OBJ studiert wurde. 


Die Disketteninterrupts 


Wie erwähnt stehen für den Zugriff auf die Datenträger sowohl 
verschiedene DOS-Interrupts als auch die Funktionen des BIOS- 
Interrupts 13h zur Verfügung. Abschnitt 9.2.1 widmet sich denje- 
nigen Funktionen, die ’nur’ Informationen über den Datenträger 
übermitteln, während Abschnitt 9.2.2 sich den Lese- und Schreib- 
funktionen widmet. Allen DOS-Funktionen ist die Nummer des 
logischen Laufwerks zu übergeben, die meist mit einer Null für 
Laufwerk ’A’ beginnt, während das BIOS (Interrupt 13h) als Lauf- 
werksnummer die Werte Null oder Eins für das erste und zweite 
Diskettenlaufwerk sowie 80h und 81h für die erste und zweite 
Festplatte erwartet. Bei den Funktionen des BIOS-Interrupt werden 
Zylinder- und Sektornummer zusammen mit den 16 Bit des CX- 
Registers codiert. Die unteren sechs Bit von CL bilden dabei die 
Sektornummer, während die Zylindernummer zehn Bit umfaßt: Bit 
0..7 stehen in CH, Bit Acht und Neun werden durch Bit 6 und 7 von 
CL gebildet: 


CX := ((CyINo shi 8) and FF00h) or ((CyINo shr 2) and COh) or 
(SekNo and 3Fh); 

CyINo := CX shr 8 + ((CX sh] 2) and 300h); 

SekNo := CX and 3Fh; 


Weiterhin geben alle BIOS-Funktionen des Interrupt 13h nach 
einem fehlerhaften Aufruf in AH eine Fehlernummer zurück. Ein 
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Fehler wird durch ein gesetztes Carryflag signalisiert. Die Liste der 
Fehlercodes findet sich weiter unten bei Interrupt 13h, Funktion 
eins. 


Informations-Funktionen 


Rein informativen Charakter haben die folgenden Funktionen des 
Interrupt 21h: 


Interrupt 21h, Funktion 36h: ’Get Free Disk Space’ 


IN: 

AH: 36h 

DL: Drive Nummer (0 = Default, 1 = A,2 =B ...) 
OUT: 

AX: Sektoren/Cluster 

BX: Freie Cluster 

cX: Byte/Sektor 

DX: Cluster auf dem Datenträger insgesamt 


Anm.: Wenn in AX der Wert FFFFh zurückgegeben wird, so ist die 
Laufwerksnummer ungültig. 


Interrupt 21h, Funktion 1Ch: ’Get Drive Data’ 


IN: 
AH: ICh 
DL: Drive (wie Fkt. 36h) 
OUT: 
AL: Sektoren/Cluster 
DS:BX: Zeiger auf Media-Descriptor-Byte 
cx: Byte/Sektor 
DX: Cluster auf dem Datenträger insgesamt 


Anm.: Wenn AL = FFh zurückgegeben wird, so war die Laufwerks- 
nummer ungültig. 


Interrupt 21h, Funktion 19h: ’Get Default Disk’ 
IN: 
AH: 19h 
OUT: 
AL: Nummer des aktuellen Laufwerks (A=0,B=1,etc.) 
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Interrupt 21h, Funktion 44h: ’IOCtrl Request: Get/Set Device 


Data’ 
IN: 
AX: 
cx: 0860h (Get) ; = 0840h (Set) 
BL: Drive (Default =0,A=1,B= 2, etc.) 
DS:DX: Zeiger auf eine Datenstruktur mit folgendem Aufbau: 
Länge Inhalt 
0 1 Flaggen für Spezialfunktionen 
1 1 Typ der Einheit 
2 1 Attribute des Treibers 
3 2 Zahl der Zylinder 
5 1 Typ des Speichermediums 
( Parameterblock: ) 
6 2 Bytes / Sektor 
8 1 Sektoren / Cluster 
9 2 Anz. der reservierten Sektoren 
11 1 Anz. der FATs 
12 2 Anz. der Einträge im Rootdirectory 
14 2 Anz. der Sektoren 
16 1 Media-Deskriptor 
17 2 Sektoren / FAT 
19 2 Sektoren / Spur 
21 2 Zahl der Schreib- / Leseköpfe 
23 4 Anz. der versteckten Sektoren 
27 4 Anz. der Sektoren (> 32 MB) 
31 6 reserviert 


Anm.: Die Funktion 440Dh bietet weitere Funktionen zum Forma- 
tieren und Verifizieren des Datenträgers. Diese werde ich hier nicht 
vorstellen. Sie werden aber in der Fachliteratur vorgestellt. 


210 


9 Disketten und Festplatten 


Interrupt 13h, Funktion 1: ’Get Drive State’ 


IN: 


01h 
Laufwerksnummer (0, 1, 80h, 81h) 


Statusmeldung zum letzten Aufruf mit folgender 
Codierung: 

Bedeutung 

Operation fehlerfrei durchgeführt 

Ungültiger Aufruf 

Adressmarke nicht gefunden 

Diskette ist schreibgeschützt 

Sektor nicht gefunden 

Laufwerks-Reset unmöglich (Festplatte) 

Diskette fehlt (Floppy) 

Fehlerhafte Parametertabelle (Festplatte) 

DMA-Überlauf 

Versuch, mehr als 64KB zu transferieren 

Sektor fehlerhaft (Festplatte) 

Zylinder Fehlerhaft (Festplatte) 

Falscher Datenträgertyp (Diskette) 

Ungültige Sektoranzahl beim Formatieren (Festplatte) 

Kontrolldaten-Adress-Markierung gefunden (Festplatte) 

DMA-Level ungültig (Festplatte) 

CRC / ECC fehlerhaft 

Fehler in ECC-korrigierten Daten 

Controller fehlerhaft 

Seek-Fehler 

Time-Out-Fehler 

Laufwerk nicht bereit (Festplatte) 

Unerkannter Fehler (Festplatte) 

Fehler beim Schreiben (Festplatte) 

Statusfehler (Festplatte) 

Prüfoperation nicht möglich 
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CRC steht für Cyclical Redundancy Check und ist ein Daten- 
Prüfverfahren. ECC steht für den Error-Correction-Code, d.h. den 


Fehler-Korrektur-Code. 
Interrupt 13h, Funktion 8: ’Get Drive Parameter’ 
IN: 
AH: 08h 
DL: Laufwerksnummer (0, 1, 80h, 81h) 
OUT: 
Carryflag gesetzt: AH = Fehlernummer 
Carryflag gelöscht: 
DH: Maximale Kopfnummer 
DL: Anzahl der installierten Disketten- bzw. 
Festplattenlaufwerke 
CH/CL: Maximale Zylinder- und Sektornummer 
BL: Laufwerkstyp (bei Disketten): 
1: 360 KB 
2: 1,2 MB 
3: 720 KB 
4: 1,44 MB 


ES:DI: Zeiger auf Diskettenparametertabelle (nur Floppy) 


Anm.: Der Typ des Laufwerks wird nur bei Diskettenlaufwerken in 
BL zurückgegeben, ebenso der Zeiger auf die Parametertabelle. Hat 
eine Diskette 80 Zylinder, so wird in CH als maximale Nummer 79 
und in CL die maximale Sektornummer (8, 9 , 15 oder 18) 
zurückgegeben. Die Diskettenparametertabelle, deren Adresse in 
ES:DI zurückgegeben wird, liegt im ROM-BIOS und enthält die 
Standardeinstellungen für diesen Diskettentyp. Für 360 KB-Disketten 
gibt es im AT zwei Tabellen, eine für 360 KB-Laufwerke und eine 
für 1,2 MB-Laufwerke. Entsprechendes gilt für 720 KB-Disketten. 


Interrupt 13h, Funktion 10h: ’Test for Drive Ready’ 


IN: 

AH: 10h 

DL: Laufwerk (80h, 81h) 
OUT: 


AH: Laufwerksstatus 
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Anm.: Die Funktion wird nur bei Festplatten unterstützt und ent- 
spricht im wesentlichen Funktion 01h des Interrupts 13h. 


Interrupt 13h, Funktion 15h: ’Read Disk Type’ 


IN: 
AH: 15h 
DL: Laufwerksnummer 
OUT: 
AH: 0: keine Diskette/Festplatte mit dieser Nummer 


1: Diskettenlaufwerk, erkennt Diskettenwechsel nicht 

2: Diskettenlaufwerk, erkennt Diskettenwechsel 

3: Festplatte, dann in CX:DX Gesamtzahl der Sektoren 
Anm.: Man beachte, daß die Gesamtzahl der Sektoren bei 
Festplatten alle Partitionen umfaßt. 


Interrupt 13h, Funktion 16h: ’Get Disk Change State’ 


IN: 

AH: 16h 

DL: Laufwerk (0 oder 1) 
OUT: 

AH: 0: Kein Diskettenwechsel 


1: Ungültige Laufwerksnummer 
6: Diskettenwechsel hat stattgefunden 


Anm.: Das Ergebnis ist nur definiert, wenn vorher mit Funktion 15h 
überprüft wird, ob das Laufwerk einen Diskettenwechsel erkennen 
kann. Unter Diskettienwechsel wird hierbei ein Öffnen der 
Laufwerksklappe verstanden. Ob tatsächlich eine andere Diskette 
eingelegt wurde, kann der Laufwerkscontroller nicht erkennen. 


Funktionen für den Plattenzugriff 


Es gibt verschiedene Möglichkeiten, auf Disketten und Festplatten 
zuzugreifen. Die DOS-IOCtrl-Funktionen des Interrupt 21h z.B. oder 
die DOS-Interrupts 25h/26h sowie die Funktionen Zwei und Drei 
des BIOS-Interrupts 13h. Die Funktionen unterscheiden sich im 
wesentlichen durch die Art und Weise der Numerierung der 
Sektoren und Laufwerke. Während das BIOS z.B. keine logischen 
Laufwerke kennt, kennen die DOS-Interrupts 25h und 26h nur 
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logische Sektoren (beginnend mit dem Bootrecord) und logische 
Laufwerke. Meiner Erfahrung nach sind die DOS-IOCtrl-Funktionen 
für den Disketten- und Plattenzugriff aus Gründen der Geschwin- 
digkeit nur bedingt interessant. Sie haben jedoch den Vorteil, daß 
das logische Laufwerk bei ihnen mit den versteckten Sektoren 
beginnt, d.h. mit den Partitionsdaten. 


Interrupt 21h, Funktion 44h: ’IOCtrl Request: Read/Write on 


Logical Device’ 
IN: 

AX: 440Dh 

cx: 0861h (Read) bzw. CX = 0841h (Write) 

BL: Drive (Default =0,A=1,B=2, etc.) 

DS:DX: Zeiger auf Parameterblock (Aufbau siehe unten) 
OUT: 


Carryflag gesetzt = Fehler, sonst OK 
Aufbau des Eingabe-Parameterblocks: 
Offset Bedeutung 


Reserviert ( Auf Null setzen N) 
Kopf (Zählung beginnt bei null) 


Zylinder (Zählung beginnt bei null) 
Erster Sektor (Zählung beginnt bei null) 
Zahl der zu lesenden Sektoren 


von vu or oo 


FAR - Zeiger auf Transferpuffer 


Anm.: Diese Funktionen werden in der UNIT DISK_OBJ benutzt. 
Das Laufwerk beginnt im Gegensatz zu den Interrupts 25h/26h mit 
dem Bootsektor (d.h. mit den versteckten Sektoren N 
Interrupt 25h: ’Absolute Disk Read’ 
IN: 

AL: Drive (A=0,B>=1, etc.) 

cx: Anzahl der Sektoren 

DX Erster logischer Sektor (Bootrecord = 0) 

DS:BX: Zeiger auf Transferpuffer 
OUT: Carryflag = 1 : Fehlercode in AL, sonst OK 
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Bei Festplatten > 32MB gilt stattdessen ab DOS 4.0 folgender Aufruf: 
IN: 

AL: Drive 

cx: -1 (Große Platte) 

DS:BX: Zeiger auf Parametertabelle mit folgendem Aufbau: 


Offset Inhalt 


0 DWord mit erster Sektornummer 
4 Anzahl der zu lesenden Sektoren 
6 Far-Zeiger auf Transferpuffer 


Anm.: Die Funktion schließt mit einem RETF ab und nicht mit IRET 
©, d.h., daß die Flags auf dem Stack verbleiben. Sie müssen daher 
noch mit einem POP-Befehl entfernt werden. In der UNIT 
DISK_OBJ wird diese Tatsache so ausgenutzt, daß der Realmode- 
Handler nicht als Interrupt, sondern als Far-Routine aufgerufen 
wird. In diesem Fall entfällt der POP-Befehl. 


Interrupt 26h: ’Absolute Disk Write’ 

(Siehe Interrupt 25h) 

Trotz der oben genannten Einwände jetzt noch die BIOS-Interrupt- 
Funktionen des Interrupt 13h. Es sei aber nochmals betont, daß 


diese Funktionen nur bei Disketten und der jeweils ersten Partition 
einer Festplatte ohne weiteres das gewünschte Ergebnis liefern: 


Interrupt 13h, Funktion 02h/03h: ’Read/Write Disk Sector’ 


IN: 
AH: 02h (Read) bzw. 03h (Write) 
DL: BIOS-Drive (1. Diskette = 0, 2.Diskette = 1, 
1.Festplatte = 80h, 2.Festplatte = 81h) 
DH: Kopf 
cXx: Sektor und Spur 
AL: Zahl der Sektoren 
ES:BX: Zeiger auf Transferpuffer 
OUT: Carryflag = 1: AH = Fehlercode, sonst OK 


Anm.: Es können mit einem Aufruf nur mehrere Sektoren innerhalb 
derselben Spur gelesen oder geschrieben werden! Der Wert in CX 
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entspricht der BIOS-Konvention, die im Abschnitt über die Parti- 
tionsdaten beschrieben wurde. Es ist zu beachten, daß die Numerie- 
rung der Sektoren bei Eins, die von Spur und Kopf jedoch bei Null 
beginnt! 

Neben diesen Aufrufen existieren noch die Funktionen 0Ah/0Bh 
des Interrupts 13h (Read Long/Write Long), mit denen auch über 
die Grenzen einer Spur hinaus bis zu 79 Sektoren gele- 
sen/geschrieben werden können. Sie haben die gleichen Aufruf- 
schnittstelle (d.h. mit AH = 0Ah/0Bh). Man beachte aber, daß diese 
Funktionen die Sektormarkierungen mitlesen/mitschreiben, so daß 
der Transferpuffer entsprechend länger ausgelegt werden muß! 
Diese Tatsache läßt es nicht ratsam erscheinen, diese Funktionen zu 
nutzen. Sie sind nur für Testzwecke gedacht. 


Die BIOS-Format-Funktionen 


Die wesentlichen Funktionen des BIOS zum Formatieren von 
Disketten und Festplatten sind die Funktionen Fünf (Format 
Track’), Funktion 17h ('Set Disk Typ for Format’) und Funktion 18h 
(Set Media Typ for Format’). Bei Festplatten ist allein Funktion Fünf 
erforderlich. Die BIOS-Funktionen ersetzen nicht das DOS-Pro- 
gramm FORMAT, da dieses neben der eigentlichen Formatierung 
des Datenträgers Bootrecord, FAT und Hauptverzeichnis einrichtet. 


Interrupt 13h, Funktion 17h: ’Set Disk Type for Format’ 


IN: 
AH: 17h 
AL: 01h: 360 KB-Diskette in 360 KB-Laufwerk 
02h: 360 KB-Diskette in 1,2 MB-Laufwerk 
03h: 1,2 MB-Diskette in 1,2 MB-Laufwerk 
04h: 720 KB-Diskette in 720 KB-Laufwerk 
oder 720 KB-Diskette in 1,44 MB-Laufwerk 
oder 1,44 MB-Diskette in 1,44 MB-Laufwerk 
DL: Laufwerksnummer (0 oder 1) 
OUT: 


Carryflag gesetzt: AH = Fehlercode, sonst OK. 
Anm.: Die Funktion wird beim PC/XT nicht unterstützt. 
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Interrupt 13h, Funktion 18h: ’Set Media Type for Format’ 
IN: 


AH: 18h 
CH/CL: Zahl der Zylinder/Sektoren 
DL: Laufwerk 

OUT: 


Carryflag gesetzt: AH = Fehlercode, sonst OK. 
Anm.: Die Funktion wird beim PC/XT nicht unterstützt. 


Interrupt 13h, Funktion 5: ’Format Track’ 


IN: 
AH: 05h 
AL: Interleave-Faktor (nur PC/XT) 
DL: Laufwerk 
CH/CL: Zylinder (Keine Sektornummer N) 
DH: Kopf 
ES:BX: Zeiger auf Formattabelle 

OUT: 


Carryflag gesetzt: AH = Fehlercode, sonst OK. 


Anm.: In CX wird nur die Zylindernummer übergeben, da immer 
eine komplette Spur formatiert wird. Die Tabelle, deren Adresse in 
ES:BX übergeben wird, muß bei Disketten für jeden Sektor 4 Byte 
enthalten: 


Byte Inhalt 

0 Spurnummer 

1 Kopfnummer 

2 Sektornummer 

3 0: 128 Bytes/Sektor 


1: 256 Bytes/Sektor 
2: 512 Bytes/Sektor 
3: 1024 Bytes/Sektor 


Bei Festplatten enthält die Tabelle für jeden Sektor zwei Byte, 
wobei das erste Byte mit den Werten O00H/80H einen 
guten/defekten Sektor markiert und das zweite Byte die Sektor- 
nummer enthält. 
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Der Interleave-Faktor legt fest, wieviele physikalische Sektoren 
zwischen zwei logisch aufeinanderfolgenden Sektoren liegen. So 
wurden beim XT die Festplatten-Sektoren einer Spur bei Interleave- 
Faktor Zwei z.B. folgendermaßen formatiert: 


Sktorr 0123456 7891011121314 1516 
Nummer 0 9 1 102 113 124 13514 616 717 8 


Der Vorteil dieser Art von Numerierung liegt darin, daß der Con- 
troller beim Lesen einer Spur zwischen zwei Sektoren mehr Zeit hat, 
um die Daten in den Arbeitsspeicher zu transferieren. 


Weitere Funktionen zum Formatieren sind Funktion 06h und 07h 
(PC/XT, nur Festplatten) und Funktion 1Ah (nur ESDI-Laufwerke 
beim PS/2). Sie werden hier nicht vorgestellt. 

Weitere DOS-/BIOS-Funktionen 


Interrupt 21h, Funktion OEh: ’Select Default Disk’ 


IN: 

AH: 0Eh 

DL: Drive (A=0,B=1, etc.) 
OUT: - 


Anm.: Die Funktion ermöglicht es dem Programm, das aktuelle 
Laufwerk zu wechseln. Man beachte, daß dieser Wechsel durchaus 
nicht identisch ist mit einem Verzeichniswechsel! 


Interrupt 21h, Funktion 0ODh: ’Reset Disk’ 
IN: 

AH: 0Dh 
OUT: - 
Anm.: Sie sollten diese Funktion immer aufrufen, bevor und nach- 
dem sie Daten im Verwaltungsbereich eines Laufwerk direkt geän- 
dert haben, da DOS sonst in seinen Diskettenpuffern ungültige In- 
formationen hält. 


Interrupt 13h, Funktion 0: ’Reset Drive’ 
IN: 

AH: 0 

DL: Laufwerknummer (0, 1, 80h, 81h) 
OUT: - 
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Anm.: Die Funktion reinitialisiert das Laufwerk und sollte nach dem 
Auftreten eines Fehlers aufgerufen werden. 


Interrupt 13h, Funktion 4: 'Verify Sector’ 


IN: 
AH: 04h 
AL: Anzahl der Sektoren 
DL: Laufwerksnummer (0, 1, 80h, 81h) 
DH: Kopfnummer 
CH/CL: Zylinder und Spur 
OUT: 


Carryflag gesetzt: AH = Fehlercode, sonst kein Fehler. 


Anm.: In der Literatur wird ab und an behauptet, als Eingabe- 
parameter benötige die Routine in ES.BX den Zeiger auf einen 
Datenpuffer. Dies trifft nicht zu, da die Daten nicht etwa gelesen 
und verglichen werden, sondern ’nur’ ein Prüfsummencheck (CRC) 
durchgeführt wird. 


Interrupt 13h, Funktion 09h: ’Init Drive Parameter Table’ 
IN: 

AH: 09h 
OUT: 

Carryflag gesetzt: Fehlercode in AH, sonst alles OK. 


Anm.: Der Aufruf existiert nur bei Festplatten und initialisiert die 
Festplattenparametertabellen, auf die die Interruptvektoren 41h und 
46h zeigen, mit den Daten aus dem CMOS-RAM. Zu diesen Tabellen 
siehe Kapitel 9.4. 


Interrupt 13h, Funktion 0Ch: ’Seek’ 


IN: 
AH: och 
DL: Laufwerk 
DH: Kopf 
cx: Zylinder 
OUT: 


Carryflag gesetzt: Fehlernummer in AH, sonst OK. 
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Anm.: Die Funktion positioniert den Schreib-/Lesekopf über der 
angegebenen Spur. 


Interrupt 13h, Funktion 11h: "Recalibrate Drive’ 


IN: 

AH: 11h 

DL: Laufwerk (0, 1, 80h, 81h) 
OUT: 


Carryflag gesetzt: Fehlercode in AH, sonst OK. 
Interrupt 13h, Funktion 19h: ’Park Hard Disk Heads’ 


IN: 
AH: 19h 
DL: Drive 
OUT: Carryflag = 1: Fehlercode in AH, sonst OK 


Anm.: Die Funktion bringt die Schreib-/Leseköpfe eines Laufwerks 
in Parkposition. Diese Funktion sollte bei älteren Festplatten vor ei- 
nem eventuellen Transport ausgeführt werden, um die Festplatte 
vor Schäden bei Erschütterungen zu bewahren. Neuere Festplatten- 
controller bringen die Köpfe automatisch beim Abschalten des 
Computers in Parkposition. 


Die UNIT DISK_OBJ 


Die Unit DISK_OBJ definiert das Schnittstellenobject tDRIVE, über 
das leicht direkt auf Disketten und Festplatten zugegriffen werden 
kann. Die UNIT ist sowohl für Realmode als auch für Protected- 
Mode-Programme nutzbar. 


Der Unterschied besteht im wesentlichen darin, daß bei einer Nut- 
zung aus einem Protected-Mode-Programm heraus DOS-Speicher- 
bereich zur Verfügung gestellt werden muß, bevor über das DPMI 
die Realmodehandler aufgerufen werden können. Mehr zur Funk- 
tionsweise des DPMI steht im Kapitel 12. Den DPMI-Funktionen 
wird hierbei ein Zeiger auf einen Record vom Typ 'tCallStruct’ 
übergeben. Dieser Record wird in der UNIT _DPMI deklariert. Wer 
ein wenig in der RUN-TIME-LIBRARY von Borland Pascal 
geschmökert hat, dem wird aufgefallen sein, daß eine äquivalente 
Datenstruktur bereits in der UNIT SYSTEM deklariert ist. Wer mag, 
kann den tCallStruct also auch als "absolute RealModeRegs’ 
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deklarieren und 50 Byte im Datensegment einsparen. (Ob dies zu 
irgendwelchen Komplikationen führen kann, ist mir nicht bekannt.) 


Die von der UNIT DISC_OBJ benutzten Datenstrukturen sind sepa- 
rat in der UNIT DISC_REC deklariert. Es handelt sich hierbei im we- 
sentlichen um die oben beschriebenen Records für den Bootrecord, 
die Partitionsdaten, Directoryeinträge u.s.w. 


{ Be 22 502 2 2202122 22 02 272 2 2 1272 27272 2 2 212 2212 2 2202 2 20202 212 27202 21202 20202 } 


{ Copyright (c) Christian Baumgarten, Hamburg 1993 } 
(essen) 
UNIT DISK_OBJ; 

INTERFACE 

{$IFDEF MSDOS} 

USES OBJECTS ,‚DOS,DISK_REC; 


{$ELSE} 

USES OBJECTS,‚DOS,DISK_REC.WINAPT; 

{$ENDIF} 

Const 

{--- Drive-Flag-Konstanten: ------------------------ } 
df_Bootable = $0001; 
df_Primary = $0002; 
df_fatl2 = $0004; 
df_BigPart = $0008; 
df_Changeable = $0010; 
df_NotAvail = $1000; 

{--- Drive-Status-Konstanten: ---------------------- } 
ds_OK =0 
ds_Error = 


1: 
ds_NotAvail = 2; 
ds_NotReady = 3; 


Type 
tDoubleRec = Record 
Case Byte Of 
0: (Selector, Segment:word;); 
1:(L:Longint;); 


end; 

pDrive = *tDrive; 
tDrive = object(tObject) 
Flags :Word; 


State :Integer; 
ByteSec :Word; 
SecClust :Word; 
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wer) 


(Ab hier direkte Daten des "Bootrecords" aus Sektor 0 


ResSec :Word; 

FATS :Byte; 

RootNo :Word; 

SecNo :Word; { = 0, wenn Festplatte > 33 MB } 
MediaType:Byte; 

SecFrat :Word; 

SecTrack :Word; 

Heads :Word; 

HidSek :longint; { = word bis DOS 3.3 } 

--.-- Exestiert nur ‚falls SekNo=0 und DosVersion>=4.0 ---} 
TotalSek :longint; 

BiosDrive:byte; { Diskette : 0/1, Festplatte : $80/$81 } 
fill :byte; 

extsign :byte; { 29h: Extended Boot Record } 

Serial :longint; { Seriennummer des Datenträgers } 
VolLabel :DosName ; 

FATSTR  :DosPreName; 


(9 Ab hier selbstinitialisierte Daten ****} 


SecCyl :Word; 
ClustNo :Word; 
FreeClust:Word; 
FatStart :Array[1l..4] of word; 
Rootstart:hWord; 
Datastart:Word; 
Size :Longint; 
FreeSize :Longint; 
Drive :Char; 
ByteClust:word; 
D_E F,E_O_F:word; 


Constructor Init(aDrive:Char); 


Procedure Reset; Virtual; 

Procedure ReadSector (Start:Longint;Count:Word; var Buff); 

Procedure WriteSector (Start:Longint;Count:Word; var Buff); 

Procedure ReadCluster(Start,Count:Word;Var Buff); 

Procedure WriteCluster(Start ‚Count:Word;Var Buff); 

Procedure ReadAbsSector (Start:Longint;Count:Word;Var Buff); 

Procedure WriteAbsSector (Start:Longint;Count:Word:Var Buff); 
Destructor Done; Virtual; 


Private 


Procedure DosInt_IO(Mode:Word;Start:Longint;Count:Word; Var 
Buff); 
Procedure DosI0Ctr]_IO(Mode:Word;Start:Longint:;Count:Word;Var 
Buff); 


{$IFNDEF MSDOS} 


Private 
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DosBuffer : tDoubleRec; 
InProcAddr ‚OutProcAddr:Pointer; 
{$ENDIF} 
end; 


IMPLEMENTATION 


{$IFNDEF MSDOS} 
USES _DPMI: 


Var TRegs:TCallStructure; 
{$ENDIF} 


Const dm Read = $0001; 
dm Write = $0002; 


Constructor tDrive.Init(aDrive:Char):; 
begin 
aDrive:=UpCase(aDrive); 
FillChar(Flags ,Size0f(tDrive) - 2,0); 
Drive:=aDrive; 
asm 
mov x,$4408 
{ DOS INT 21H, Funktion 4408h: "Is Drive Changeable” } 
mov b1,aDrive 
{ BL = Drive; 0 = Default, 1 = 'A' etc. } 
sub b1,64 
push ds 
int 21H 
pop ds 
jnc @@10 
{ Carryflag gesetzt: Fehler ! (AX = 15 entspr. LW n.vh.) } 
cmp ax,15 
je @22 { Laufwerk exestiert nicht ! } 
(* cmp ax,l 
je @@3 { Abfrage wird nicht unterstützt } 
*) 
@@10:cmp ax,l { AX = 1 bedeutet, daß das Laufwerk fest ist } 
je 0@3 
les di,self 
or es:[di].flags,df_changeable 
@@3:mov ah,36h 
{ DOS INT 21H, Funktion 36H: "Get Free Disk Space" } 
mov di,adrive { DL = Drive: 0 = Default, 1 = 'A' etc. } 
sub d1,64 
push ds 
int 21h 
pop ds 
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cmp 


ax, $FFFF 


{ Falls Fehler auftrat, enthält AX den Wert $FFFF } 


je 
les 


Jmp 
@@1:mov 
Jmp 
@@22::mov 
@@2:les 
MOV 
end; 


e@1 
di,self 
es:[di].SecClust,AX 
es:[di].FreeClust,BX 
es:[di].ByteSec,CX 
es:[di].ClustNo,DX 
si,dx { DX vor der Multiplikation sichern } 
cx { X * CX = Sekt. /Cluster * Byte/Sektor=Byte/Cluster} 
dx,si { DX restaurieren } 
es:[di].ByteClust,AX 
si.ax { AX vor Multiplikation sichern } 
dx { AX * DX=Byte/Cluster * Anz.d.Cluster=Bytes/Laufw. } 
es:[di].Size.Word[0].AX 
es:[di].Size.Word[2].DX 
ax,si { AX restaurieren } 
bx { AX * BX=Byte/Cluster * Freie Cluster=Freier Platz } 
es:[di].FreeSize.Word[0].AX 
es:[di].FreeSize.Word[2].DX 
ax,ds_OK 
@@2 
ax,ds_notready 
@@2 
ax,ds_notavail 
di,self 
es:[di].state,ax 


if state<>ds_OK then exit: 


{$IFNDEF 


MSDOS} 


DosBuffer.L:=GlobalDosAlloc(SizeOfltIoCtriParams)+ByteClust); 
GetRealMIntVec($25, InProcAddr):; { Adresse Int 25h erfahren } 
GetRealMIntVec($26,0utProcAddr);  { Adresse Int 26h erfahren } 


{SENDIF} 


Reset; 


end; 


Procedure tDrive.Reset:; 
var DRV,i:Byte; 
P:pSectorBuff; 


begin 


DRV:=Ord(Drive)-64; 


asm 


ah,ICH { INT 21H, Funktion ICH: "Get Drive Data" } 
d1,DRV { DL = Drive; 0 = Default, 1= 'A' etc. } 
ds 

21h 

b1,[bx] 
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{ Rückgabewert in DS:BX enthält Zeiger auf Media Deskriptor } 

{ Weitere Rückgabewerte werden ignoriert, da schon bekannt. } 
pop ds 
les di,self 
cm al,$FF { AL = $FF bedeutet, daß ein Fehler auftrat } 
je @@2 { Laufwerk exestiert nicht/nicht bereit ! } 
mov es:[di].MediaType,b] 
mov ax,ds_OK 
jmp @@3 

@@2:mov ax,ds_NotReady 

@@3:mov es:[di].state,AX 


end; 
if State = ds_OK then 
begin 
asm 
les di,self 


{ Gesamtzahl der Sektoren > $FFFÜO ? => Große Partition } 
mov ax,es:[di].ClustNo 
mul es:[di].SecClust 


or dx,dx 

jnz @@Big 

cmp ax,$FFFO 

jb @@Smal] 
@@Big:or es:[di].flags,df_BigPart 
@@Small: 

end; 


{$IFDEF MSDOS} 
GetMem(P ‚sizeof(tDos_IOParams )+ByteSec); 


{$ELSE)} 

P:=Ptr(DosBuffer.Selector,0):; { DOS-Speicherplatz reservieren } 
{$ENDIF} 

ReadSector(0,1,P*.Data); { BootRecord im O.ten Sektor lesen } 


Move(P*.BootRec.ResSek ‚Self.ResSec,22 + 26); 
if (Lo(DosVersion)< 4) OR (ExtSign<>$29) then 
begin 
HidSek:=HidSek and $FFFF; 
TotalSek::=SecNo; 
Fillchar(BiosDrive,26,0); 
end; 
{ Berechnungen zur Platten-/Diskettenstruktur durchführen: } 
FatStart[1] := ResSec; 
For i:=2 to FATs do FatStart[i]:=FatStart[i-1] + SecFat; 
Rootstart:= FatStart[1] + FATs * Secfat; 
Datastart:= RootStart + (RootNo * 32) div ByteSec; 
{ FAT - Signaturen für defekte Cluster bzw. letzten Dateicluster: } 
if clustNo>=$FF0 then 
begin 
D_E_F:=$FFFO; { 16-Bit-FAT } 
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E_O_F:=$FFFB; 
end else 
begin 
D_E_F:=$FFO; { 12-Bit-FAT } 
E_O_F:=$FFB; 
Flags:=Flags or df_FATI2: 
end; 
SecCyl:=SecTrack * Heads; 
if SecNo <> 0 then TotalSek:=SecNo; 
{$IFDEF MSDOS} 
FreeMem(P,sizeof(tloCtriParams)+ByteSec); 
{$ENDIF} 
end; 
end: 


{$IFDEF MSDOS} 
Procedure tDrive.DosInt_IO(Mode:Word;Start:Longint:Count:Word; Var 


Buff); 
var Params:tDos_IOParams; 
begin 
if Flags and df_BigPart = 0 then 
asm { Kleine Partition: 

mov cx,4  { Max. Anzahl der Wiederholungen im Fehlerfall } 

@@1: push cx 
push ds { DS sichern ! } 
xor ah,ah 
les di,self 
mov al,es:[di].Drive 
sub a1,65 { AL = Drive } 
mov cx,count { CX = Anz. der Sektoren } 
mov dx,start.word[0)]) { DX = StartSektor } 
lds bx,buff { DS:BX = Zeiger auf Datenpuffer } 
cmp mode,dm Write 
je  &@@10 { Schreiben oder Lesen ? } 
int 25h 
jmp @e1l 

@@10:int 26h 

@@11:pop bx { Flags vom Stack holen (!) } 
pop ds { DS restaurieren } 
pop cx { Wiederholungszähler laden } 
jnc @R@OK { Kein Carryflag: Alles OK } 
loop @@1 { Fehler: Falls CX>0 Versuch wiederholen } 
xor ah,ah { AL = Fehlercode, AH löschen } 
jmp @e2 


@@OK:mov ax.ds_OK 
@@2: les di,self 
mov es:[di].state,ax 
end else 
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begin { Große Partition ( >32MB ) : } 

Params .StartSec:=Start:; 
Params .Count:=Count; 
Params.Dta_Addr:=@Buff; 

asm 

mov cx,4 

@@1: push cx 

push ds { Datensegment auf dem Stack sichern } 
xor ah,ah 

les di,self 

mov al,es:[di]).Drive { AL = Drive } 
sub al,65 

mov cx,-1 {CX = -1: Zugriff auf erweiterte Partition } 


lea bx,Params { DS:BX = Zeiger auf tDOS_IOParams-Record } 
cmp Mode,dm Write { Lesen oder Schreiben ? } 
je e@10 
int 25h 
jmp @@11 
@@10:int 26h 
@@1l:pop bx { Flags vom Stack holen (!) } 
pop ds { DS restaurieren } 
pop cx { Zählerwert restaurieren } 
jnc 0@@2 { Carryflag gesetzt: Fehler und evtl. Wdhlg. } 
loop @@1 
xor ah,ah 
jmp @@3 
@@2: xor ax,ax 
@@3: les di,self 
mov es:[di].state,ax 
end; 
end; 
end; 


{$ELSE} 


Procedure tDrive.DosInt_IO(Mode:Word;Start:Longint:Count:Word; Var 
Buff); 
Var P:pSectorBuff; 
BuffPtr: Pointer; 
ACount :word; 


Procedure IO_Sectors; 
var Regs:tCallStructure; 
I:Byte; 
begin 
I:=0; 
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repeat 
Regs :=TRegs; 
CallRealMProc(Regs); 
INC(D); 
until (Regs._Flags and 1=0) or (I=4); 
TRegs :=Regs; 
end; 


begin 
P:=Ptr(DosBuffer .Selector .0): 
BuffPtr:=@Buff; 
Repeat 
if Count>SecClust then aCount:=SecClust else aCount:=Count; 
PrepareTCallStruct(TRegs); 
With TRegs do 
begin 
{ CALL - Adresse in den TCALLSTRUCT eintragen: } 
if Mode = dm Write then 
begin 
_CS := PtrRec(OutProcAddr) .Seg: 
_IP := PtrRec(OutProcAddr).Ofs; 
end else 
begin 
_CS := PtrRec(InProcAddr) ..Seg; 
_IP := PtrRec(InProcAddr) .Ofs; 
end; { AL = Drive eintragen } 
_EAX:= Ord(Drive) - 65; 
{ DS:BX = Zeiger auf Puffer (EBX wird von der } 
{ Prozedur PrepareTCallStruct auf Null gesetzt)} 
_DS := DosBuffer .Segment; 
if Flags and df_BigPart = 0 then 


begin { Kleine Partition ( < 32 MB ): } 
_ECX:=aCount; 

_EDX:=Start: 

_EBX:=SizeOf(tDos_IOParams); 

end else 

begin { Große Partition ( > 32 MB ) } 
_ECX := - 1; 


tD0S_IOParams(P*.Params).Count :=aCount; 
tD0OS_IOParams(P*.Params).StartSec:=Start: 
tD0S_IOParams(P*.Params) .DTA_Addr := 
Ptr(DosBuffer ‚Segment ,SizeOf(TDOS_IOParams)): 
end; 
if Mode=dm_Write then Move(BuffPtr*,P*.Data,ByteSec * aCount); 
IO_Sectors; 
IF TRegs._Flags and 1=0 then 
begin 
State:=ds_0K; 
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if Mode = dm Read then 
Move(P*.Data,BuffPtr*,‚ByteSec * aCount): 
end else 
begin 
State:=TRegs._EAX and $FF; 
exit; 
end; 
asm 
les di,self 
mov ax, aCount 
sub Count, ax 
mul es:[di].ByteSec 
add BuffPtr.word[0], ax 
adc dx,0 
mov ax,dx 
mul selectorinc 
add BuffPtr.word[2],ax 
end; 
end; 
until (Count<=0); 
end; 


{SENDIF} 


Procedure tDrive.ReadSector(Start:Longint;Count:Word; var Buff); 
begin 

DosInt_IO(dm_read,Start ‚Count ‚Buff); 
end; 


Procedure tDrive.WriteSector(Start:Longint;Count:Word; var Buff); 
begin 

DosInt_IO(dm write,Start,Count,‚Buff); 
end; 


Procedure tDrive.ReadCluster(Start,Count:Word;Var Buff); 
begin 
DosInt_IO(dm read,DataStart + (Start - 2) * SecClust,SecClust * 
Count ‚Buff); 
end; 


Procedure tDrive.WriteCluster (Start ‚Count:Word;Var Buff); 
begin 
DosInt_IO(dm write,DataStart + (Start - 2) * SecClust,SecClust * 
Count ‚Buff); 
end; 


{$IFDEF MSDOS} 
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Procedure tDrive.DosI0Ctr1_IO(Mode:Word;Start:Longint;Count:Word;Var 


Var Par 
asm 


@@1: push 


cmp 
je 
mov 
Jmp 
@@10:mov 
@@11:push 
lea 
Int 
pop 
Pop 
jnc 
loop 
mov 
Jmp 
@@2: xor 


Buff); assembler; 
ams:tIOCtr1Params ; 


bx,Params 

di,self 

ax,Start.Word[0] 
dx,Start.word[2] 
es:[di].SecCyl 
[bx].tIOCtr1Params.head, ax 
ax,dx 

dx,dx 

es:[di].SecTrack 
[bx].tIOCtrlParams.cyl ,ax 
[bx].tIOCtr1Params.StartSec,dx 
ax,count 
[bx].tIOCtr]Params..Sectors ‚ax 
ax,ax 
[bx].tIOCtrlParams.Bitfield,al 
ax,buff.word[L0] 
dx,buff.word[2] 
[bx].tIOCtrlParams.dta_addr.word[0]. ax 
[bx].tIOCtrlParams.dta_addr.word[2].dx 
cx,4 

cx 

di,self 

ax, $440D 

bl,es:[di].Drive 

b1,64 

ch,8 

mode ‚dm_write 

@@10 

c1,$61 

e@11 

c1,$41 

ds 

dx.params 

21h 

ds 

cx 

@@2 

ee] 

ax,$s00FF 

@@3 

aX,ax 
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@@3: les di,self 
mov es:[di].state,ax 
pop ds 
end; 


{SELSE} 


Procedure tDrive.DosIOCtr]_IOCMode:Word;Start:Longint:Count:Word;Var 
Buff); 
Var P : PSectorBuff; 
BuffPtr:Pointer; 
ACount:Word; 


Procedure IO_Sectors; 
var Regs:tCallStructure; 
I:Byte; 
begin 
I:=0; 
repeat 
Regs :=TRegs: 
CallRealMIntr($21,Regs): 
INC(TD): 
until (Regs._Flags and 1=0) or (I=4): 
TRegs :=Regs; 
end: 


begin 
P:=Ptr(DosBuffer .Selector 0); 
BuffPtr:=@Buff; 
Repeat 
if Count>SecClust then aCount:=SecClust else aCount:=Count:; 
asm 
push ds 
lds bx,P 
les di,self 
mov ax,Start.Word[L0] 
mov dx,Start.word[2] 
div es:[di].SecCy] 
mov L[bx].tIOCtr1Params.head.ax 
mov ax,dx 
xor dx,dx 
div es:[di].SecTrack 
mov [bx].tIOCtr1Params.cyl ‚ax 
mov [bx].tIOCtr1Params.StartSec.dx 
mov ax,count 
mov [bx].tIOCtr]Params.Sectors, ax 
xor aX,ax 
mov [bx3.tIOCtr]Params.BitField.al 
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pop ds 
end; 
PrepareTCal1Struct(TRegs); 
with TRegs do 
begin 
_EAX:=$440D; 
_EBX:=Ord(Drive)-64; 
if Mode = dm write then _ECX:=$0841 else _ECX:=$0861; 
_DS:=DosBuffer .Segment; 
{ _EDX:=0; implizit } 
end; 
P*.Params .DTA_Addr :=Ptr(DosBuffer ‚Segment ‚SizeOf(tIOCtr]Params)):; 
if Mode = dm Write then Move(Buffptr*,P*.Data,aCount * ByteSec); 
IO_Sectors; 
IF TRegs._Flags and 1 = 0 then 
begin 
State:=ds_0K; 
if Mode = dm Read then Move(P*.Data,BuffPtr*,aCount * ByteSec): 
end else 
begin 
State:=TRegs._EAX and $FF; 
exit; 
end; 
asm 
les di,self 
mov ax,aCount 
sub Count, ax 
mul es:[di].ByteSec 
add BuffPtr.word[0]. ax 
adc dx,0 
mov aXx,dx 
mul selectorinc 
add BuffPtr.word[2],ax 
end; 
until (Count=0); 
end; 


{$ENDIF} 


Procedure tDrive.ReadAbsSector(Start:Longint;Count:Word; Var Buff): 
begin 

DosIoCtr]_IO(dm_read,Start,Count Buff); 
end; 


Procedure tDrive.WriteAbsSector(Start:Longint;Count:Word;Var Buff); 
begin 

DosIoCtr]_IO(dm write,Start.Count Buff); 
end; 
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9,4 


Tabelle 9.4: 
Aufbau einer 
Festplatten- 
parameter- 
tabelle 
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Destructor tDrive.Done; 
begin 
{$IFNDEF MSDOS} 
if DosBuffer.L<>0 then GlobalDosFree(DosBuffer.Selector); 
{$ENDIF} 
end; 


end. 


Weitere Systeminformationen zu den Laufwerken 


Es gibt neben den oben aufgeführten Interrupts noch andere Mög- 
lichkeiten, an Informationen über die Laufwerke und ihre Parameter 
zu gelangen. Da sind z.B. die Informationen im CMOS-Uhrenbau- 
stein, die in Kapitel Drei dargestellt wurden. Weiterhin verfügt so- 
wohl das BIOS als auch DOS über interne Tabellen, in denen Infor- 
mationen über die Laufwerke bereitgehalten werden. 


So zeigen z.B. die Interruptvektoren 41h und 46h auf jeweils eine 
Festplatten-Parametertabelle (Tabelle 9.4) 


Oasen [range [ron 
0 12 Im zur zund 
Eee 00 


Der Interruptvektor 1Eh zeigt auf eine Tabelle mit Informationen 
über das aktuelle Diskettenlaufwerk. Eine Standardbelegung dieser 
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Tabelle steht im ROM-BIOS an der Adresse F000h:EFC7h. MS-DOS 
ändert jedoch den Tabelleninhalt. Tabelle 9.5 zeigt den Aufbau. 


Bytes / Sektor in 256-Byte-Blöcken 


Letzter Sektor einer Spur 


Tabelle 9.6: 

Parameter- 

Block (erster Laufwerks-Nummer (A=0) 

“ 


Des weiteren hält DOS intern eine verkettete Liste von Laufwerks- 
Parametertabellen, den Disk-Parameter-Blocks (DPB). Die Anfangs- 
adresse des ersten DPB steht im DCB (Dos-Control-Block) ab Offset 
Null. Der Aufbau dieser Tabellen ist bei verschiedenen DOS-Versio- 


Ber onacae: 
o 
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nen jedoch leicht verschieden, so daß man sich besser der ’offiziel- 
len’ Wege bedient, um an Informationen über die Laufwerke zu 
kommen. Die Tabellen 9.6, 9.7 und 9.8 zeigen den Aufbau eines 
Disk-Parameter-Blocks. 


Diskparamete- 
block (zweiter Sektoren / FAT 
Teil) der Dos- 


Versionen 2.X Startsektor der Root-Directory 
ER Zeiger auf den Treiberkopf 
Media-Deskriptor-Byte 


Zugriffsflag; 0 = Daten gültig, FFh = Daten 
ungültig 


Tabelle 9.8: 
Diskparameter- 
block (zweiter Sektoren / FAT 


a. 


Zeiger auf den nächsten DPB 


Der letzte DPB enthält ab Offset 18h/19h den Eintrag FFFFh:FFFFh. 


Das Programm DPB_DEMO.PAS liest die aktuelle Belegung der Ta- 
bellen aus und zeigt sie auf dem Bildschirm an. 
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Dateien und ihr Management 


Turbo Pascal bietet seit jeher verschiedene Möglichkeiten, auf Datei- 
en zuzugreifen. Man kann auf Dateien, die als "Text’ deklariert wur- 
den, z.B. zeilenweise zugreifen, auf Dateien, die als 'File of 
XYType’ deklariert wurden, datensatzweise und auf untypisierte Da- 
teien byte- oder blockweise. Seitdem es Objekte (und somit 
Streams) gibt, kann man auf Dateien auch ’objektweise’ zugreifen. 
Wie dies alles anzuwenden ist, kann man dem Handbuch entneh- 
men oder einer der zahlreichen Einführungen in Turbo Pascal, die 
käuflich erwerbbar sind. Dieses Kapitel wird sich vor allem damit 
beschäftigen, welche Funktionen das Betriebssystem MS-DOS für 
den Zugriff auf Dateien bereithält und wie diese unter Turbo-Pascal 
bzw. vom Turbo-Pascal-Programmierer sinnvoll eingesetzt werden 
können. 

Die meisten Betriebssystemfunktionen, die über den Pfad- und Da- 
teinamen aufgerufen werden, erwarten diesen Namen nicht in Form 
eines Turbo-Pascal-Strings, sondern als PCHAR, d.h. als null- 
terminierten ASCII-String, der oft auch ASCIIZ-String genannt wird. 


Die DOS-Funktionen zur Manipulation von Dateien lassen sich grob 
in zwei Blöcke einteilen, die (älteren) FCB (File Control Block)- 
orientierten Funktionen und die Handle-orientierten Funktionen. In 
der neueren Literatur wird stets davon abgeraten, sich noch der 
FCB-orientierten Funktionen zu bedienen. Im Prinzip möchte ich 
mich dem anschließen, jedoch mit einer Ausnahme: Die FCB-orien- 
tierte Funktion ’Get Directory Entry’ kann dem Programmierer gute 
Dienste leisten, da sie als einzige DOS-Funktion den kompletten 
Directoryeintrag (vgl. Kapitel 9) einer Datei zurückliefert, während 
es sonst keine dokumentierte Möglichkeit gibt, dies zu erreichen, es 
sei denn, über den direkten Zugriff auf den Datensektor, wie er im 
Kapitel 9, Disketten und Platten‘, beschrieben ist. Zugege- 
benermaßen ist das Einzige, was das zusätzlich einbringt, die Infor- 
mation darüber, welches der erste Datencluster einer Datei ist; 
wenn man diese Information jedoch benötigt, so ist der Umweg 
über das direkte Lesen des Directory-Eintrags von der Platte deut- 
lich umständlicher zu programmieren. 
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10.1.1 


Tabelle 10.1: 
Aufbau eines 
Dateisteuer- 

blocks (FCB) 
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Die Datei-Funktionen des Interrupt 21H 


Die FCB-Funktionen 


’FCB’ steht für File-Control-Block (Dateisteuerblock). Der Zugriff auf 
Dateien über FCBs ist die ursprüngliche (und veraltete) Art der 
DOS-Dateiverwaltung. Die Aufrufe erwarten in AH die Funktions- 
nummer und in DS:DX einen Zeiger auf den FCB der Datei. In AL 
wird stets ein Statuswert zurückgegeben. Ein Statuswert von Null 
bedeutet, daß die Funktion fehlerfrei ausgeführt wurde, AL = FFh 
bedeutet, daß ein Fehler vorliegt. 

Den Aufbau der FCBs für alle Funktionen außer 11h/12h gibt 
Tabelle 10.1 wieder. 


Laufwerksnummer (A=0, B=1,...) 
Dateiname 

Namenserweiterung 

Aktueller Block (1 Block = 128 Records) 


Recordgröße in Byte 


C 


oO 
g |s |° | g 
> I 

8 


Dateigröße in Byte 
Datum des letzten Zugriffs 
Zeit des letzten Zugriffs 


Reserviert 


nn im je ie 
u leo Io Is 
= IP IP I 
12 


Startcluster der Datei (undokumentiert) 

Sektor des Verz., in dem die Datei eingetragen ist 
Eintragsnummer im Verzeichnis 

Aktueller Record 


Rel. Position des ersten Datensatzes der Datei 


Su 
SI 


22h 


Alle Lese- und Schreibzugriffe benutzen als Puffer im Arbeitsspei- 
cher die sogenannte Disk-Transfer-Area (DTA), die standardmäßig 
von DOS im PSP (vergl. Kapitel 13) eingerichtet wird und dort 128 
Byte belegt. Der Prozeß kann jedoch über die DOS-Funktion ’Set 
Disk Transfer Area’ diese Adresse verlegen. Es lassen sich mit den 
FCB-Funktionen Dateien nur im aktuellen Pfad anlegen oder öff- 
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nen. Dateien, die die Attribute ’Sys’ oder ’Hidden’ besitzen, d.h. ver- 
steckt sind oder als Systemdatei definiert sind, lassen sich über ein- 
fache FCBs gar nicht bearbeiten; hierfür existieren die erweiterten 
FCBs, die weiter unten vorgestellt werden. Alle Dateien, die über 
FCBs eröffnet werden, erhalten von DOS automatisch das Archiv- 
attribut, können aber nur über den erweiterten FCB weitere Attribu- 
te erhalten. 

Bestimmte Teile des FCB sind vor etwaigen Schreib- bzw. Lesezu- 
griffen vom Anwenderprogramm zu initialisieren. So muß z.B. nach 
dem Öffnen der Datei das Feld mit der Satzlänge 'RecordSize’ vom 
Prozess auf den gewünschten Wert gesetzt werden. Bei Satzlängen 
von mehr als 128 Byte muß der anwendende Prozess eine genü- 
gend große DTA einrichten und die Adresse dem Betriebssytem mit- 
teilen. 

Am Aufbau des FCB ist auch deutlich zu erkennen, warum man die 
FCB-orientierten Funktionen möglichst nicht mehr benutzen sollte: 
Der Eintrag, mit dem sich DOS merkt, welchen Sektor das Verzeich- 
nis belegt, weist nur 16 Bit auf und ist somit für Directories, die in 
großen Partitionen weiter hinten liegen, nicht geeignet. 

Aus all diesen Gründen, die den Umgang mit Dateien über FCBs er- 
heblich erschweren, sollen lediglich zwei FCB-orientierte Funktio- 
nen detaillierter vorgestellt und unter Pascal implementiert werden. 
Folgende FCB-Funktionen sind definiert: 

- OFH: Open File’ 

- 10H: ’Close File’ 

- 11H: ’Search For First Entry’ 

- 12H: ’Search For Next Entry’ 

- 13H: ’Delete File’ 

- 14H: ’Sequential Read from File’ 

- 15H: ’Sequential Write to File’ 

- 16H: ’Create File’ 

- 17H: ’Rename File’ 

- 21H: "Random Read’ 

- 22H: Random Write’ 

- 23H: ’Get File Size’ 

- 24H: Set Relativ Record’ 

- 27H: Random Block Write’ 

- 28H: Random Block Read’ 
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Das Programm FCBDEMO1.PAS zeigt, wie diese Funktionen benutzt 
werden können. 


(eeeeeickiieselielsisiielislilelstelieldieliideiiieheleleliekieldieieleieleieieleiekeleicheleichiieielekdieich 
{ Copyright (C) Christian Baumgarten, Hamburg 1993. 

{ Das Programm demonstriert den Umgang mit den FCB-Funktionen des 

{ Intr. 21h: 

{ Eine Datei FCBDEMO.DAT wird im aktuellen Pfad erzeugt und mit 

{ einem String beschrieben. Der jeweils aktuelle Zustand des FCBs 

{ wird bei jedem Schritt dargestellt. Wer mag, kann an den 


{ entsprechenden Stellen z.B. die Recordgröße variieren o.ä. 
{ ERKEKKHTT TH TH TH TH TH HT TH TH TH TH TH HT TH TH TH THINK 


mn u nn nun 


program fcbdemol; 
uses Codes; 
type 
pFileCctr]=*tFileltr]; 
tFileCtri=record { 32+1=33 Byte } 
LW:byte; 
Name:Array[1..11] of Char; 
Current ::word; 
RecSize:Word; 
size: longint; 
date:word; 
time:word; 
Attribut: Byte; 
Fill:Word; 
StartClust:Word; 
DirSector :Word; 
DirEntry:Byte; 
CurRec:Byte; 
RelRec:Longint; 
end; 


function AttributString(attr:byte):string; 
var s:string[8]; 
begin 
sı=''; 
if (attr and 1)>0 then s:='R'; 
if (attr and 2)>0 then s:='H'+s; 
if (attr and 4)>0 then s:="S'+s; 
if (attr and 8)>0 then s:='L'+s; 
if (attr and $10)>0 then s:='<DIR>'+s; 
if (attr and $20)>0 then s:="A'+s; 
while length(s)<8 do s:=st' '; 
AttributString:=s; 
end; 
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function TimeString(Time:word):string; 
var Hour .Min:word; 
m,s:string[5]; 
begin 
Hour:=Time shr 11; 
Min:=(Time shr 5) and $3F; 
str(Hour ,s): 
if length(s)<2 then s:=" '+s; 
str (Min,m); 
if length(m)<2 then m:="0'+m; 
S:=5+": 4m; 
TimeString:=s; 
end; 


function DateString(Date:word):string; 
var Day,Year ‚Month:word; 
s,m:string[8]; 
begin 
Year:=Date shr 9+80; 
Month:=(Date shr 5) and $F; 
Day:=Date and $IF; 
str(Year,s); 
str(Month m); 
if length(m)<2 then m:='0'+m; 
s:=mt'.'+S; 
str(Day,m); 
if length(m)<2 then m:='0'+m; 
s:m+' "+5; 
DateString:=s; 
end; 


procedure SetDTA(where:pointer); assembler; 
asm 
push ds 
lds dx.where 
mov ah,$1A 
int 21h 
pop ds 
end; 


function GetDTAptr:pointer; assembler; 
asm 
mov ah,$2F 
push ds 
int 21h 
pop ds 
mov dx,es 
mov ax,bx 
end: 
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function CreateFfile(var FCB:tFileCtrl):byte; assembler; 
asm 

push ds 

mov ah,$16 

lds dx,fcb 

int 21H 

pop ds 

end; 


function Write2File(var FCB:tFileCtr]):byte; assembler; 
asm 

push ds 

mov ah,$15 

lds dx,fcb 

int 21H 

pop ds 

end: 


function Readfile(var FCB:tFileCtr]):byte; assembler; 
asm 

push ds 

mov ah,$14 

lds dx,fcb 

int 21H 

pop ds 

end; 


function OpenFile(var FCB:tFileCtrl):byte; assembler; 
asm 

push ds 

mov ah,$0F 

lds dx,fcb 

int 21H 

pop ds 

end; 


Function Renamefile(var FCB:tFileCtr]):byte; assembler; 
asm 

push ds 

mov ah,$17 

lds dx,fcb 

int 21H 

pop ds 

end; 


Function CloseFile(var FCB:tFileCtr]l):byte; assembler; 
asm 
push ds 


10.1 Die Datei-Funktionen des Interrupt 21H 241 


mov ah,$10 
lds dx,fcb 
int 21H 


pop ds 
end; 


procedure DisplayFCB(var FCB:tFileCtr]): 


begin 

writeln; 

writelnC'Laufwerk: ' ‚Char(FCB.1w+64)); 
writeln('Name : ",FCB.name); 
writeln('Current : ',FCB.current); 
writeln('RecSize : ',FCB.RecSize); 
writelnl'Größe : ',FCB.Size); 
writeln('Date : ",DateString(FCB.Date)); 
writeln('Time : ",TimeString(FCB.Time)); 
writeln('Attribut: ',hexbyte(fcb.attribut)); 
writeln('Fill : ",feb.fill,' ',Hexword(fcb.fill)); 


writeln('StartCluster: ',fcb.startclust); 
writeln('DirSektor: ',fcb.dirsector); 
writeln('DirEntry : ',fcb.direntry); 
writelnC'Current Record: ',fcb.CurRec); 
writeln('Relativ Record: ',fcb.RelRec); 
readIn; 
end; 


var F1,F2:tFileltr]; 
const S:String= 

'Dies ist ein String ist ein String ist ein String ist ein String'+ 
"ist ein String ist ein String ist ein String ist ein String ist'+ 
"ein String ist ein String ist ein String ist ein String'; 
begin 

{ Disktransfer-Area auf den String setzen: } 
SetDTA(@S[1]): 

{ FCB vorbereiten: } 

Fillchar(F1,sizeof(f1).0); 

F1.LW:=0; 

F1.Name:='FCBDEMO DAT"; 

{ Datei erzeugen: } 

Writeln(CreateFile(F1)); 

DisplayFCB(fl); 

{ Einen Datensatz schreiben (=128 Byte): } 
Writeln(Write2File(Fl)); 

DisplayFCB(fl) 

{ Datei schließen: } 

Writeln(Closefile(Fl)); 

DisplayFCB(fl); 
end. 
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10.1.2 


Normalerweise wird man aber in neuen Programmen nicht auf die 
FCB-Funktionen zurückgreifen, um auf Dateien zuzugreifen. 


Eine vollständig andere Art, FCBs zu nutzen, stellen die Funktionen 
11h und 12h dar. Sogar der Aufbau der entsprechenden FCBs ist ein 
etwas anderer. Die UNIT FCBS implementiert diese Funktionen so, 
daß ihr Gebrauch im Prinzip die Funktionen Findfirs/Findnext der 
UNIT DOS ersetzen kann. Man sollte sie allerdings nur verwenden, 
wenn man darauf angewiesen ist, den Startcluster einer Datei ohne 
große Umstände in Erfahrung zu bringen. 


Bei diesen Funktionen ist jedoch zu beachten, daß nur solche Da- 
teien gesucht werden können, die sich im aktuellen Verzeichnis be- 
finden. Notfalls muß man also das Verzeichnis wechseln. 


Die Handleorientierten Funktionen 


Ein ’Handle’ ist nichts weiter als eine Kennzahl, unter der eine Datei 
oder ein Gerät (oder ein Datenobjekt 0.2.) angesprochen werden 
kann. Die Handle-orientierten Funktionen zur Dateiverwaltung sind 
wesentlich einfacher zu handhaben als die FCB-orientierten, da der 
Anwender zum Zugriff auf die Datei nichts weiter benötigt als das 
entsprechende (geöffnete) Handle. Alle Daten, die DOS benötigt, 
um den Zugriff korrekt auszuführen, sind allein DOS bekannt, und 
es ist nicht Aufgabe des anwendenden Programms, sich mit diesen 
Interna zu befassen. Eine ’Recordgröße’ gibt es in diesem Sinne 
nicht, es sei denn, der Anwender definiert sie selbst. 


Neben Dateien lassen sich über die Handles auch die Geräte an- 
sprechen, d.h. daß das Schreiben in eine Datei und die Ausgabe auf 
dem Drucker (LPT1’, ’'LPT2’, ...) oder auf dem Bildschirm (CON’) 
durch die gleichen Funktionsaufrufe erfolgen kann. Dies ermöglicht 
es DOS, die Ausgabeumleitung durch einfaches Austauschen der 
entsprechenden Handles anzubieten. Programme, die als Komman- 
dozeilenprogramme arbeiten, sollten ihre Bildschirmausgabe des- 
halb möglichst mit den Handlefunktionen vornehmen (bzw. mit 
DOS-Interrupts), so daß der Anwender diese Ausgabe in Dateien 
oder auf den Drucker umleiten kann. Die direkte Ausgabe auf den 
Bildschirm, wie sie die UNIT CRT anbietet, ist hierfür nicht geeignet 
(wenn auch als Textausgabe auf dem Bildschirm bedeutend schnel- 
ler). Die Geräte sind immer geöffnet und haben stets die gleichen 
Handles: 


10.1 Die Datei-Funktionen des Interrupt 21H 243 


10.1.3 


Gerät Handle 
Standard-Eingabeeinheit (CON’) 0 
Standard-Ausgabeeinheit (CON’) 1 


Standard-Fehlereinheit 2 
’AUX’ 3 
Standard-Drucker ’LPT’ 4 


Die Namen ’CON’, ’'LPT’, ’AUX’ etc. sind ebenfalls die Namen, unter 
denen das Betriebssystem bestimmte Gerätetreiber installiert hat. 
Mehr zu diesen Treibern und wie man solche auch selbst schreiben 
kann (z.B. für die IEEE-Meßgeräteschnittstelle), in Kapitel 13. 


Die Handle-Funktionen des Interrupt 21h 


Bei allen handleorientierten Funktionen gilt folgende Fehlerkonven- 
tion: Ist das Carryflag nach dem Aufruf gesetzt, so trat ein Fehler auf 
und der Fehlercode steht in AX, bei gelöschtem Carryflag war der 
Aufruf erfolgreich, und in AX wird evtl. ein Wert zurückgegeben. 


Interrupt 21h, Funktion 3CH: ’Create File’ 


In: 
AH: 3Ch 
DS:DX Zeiger auf ASCIIZ-String mit der vollständigen 
Pfadangabe 
cXx: Attribute der Datei 
Out: (bei fehlerfreiem Aufruf) 
AX: Dateihandle 


Anm.: Falls die Datei noch nicht existiert, wird sie von DOS erzeugt, 
andernfalls wird ihre Länge auf Null gesetzt. 


Interrupt 21h, Funktion 3Dh: ’Open File or Device’ 


AH: 3Dh 
AL: Openmode 
Bits 0..2: 0: Nur für Lesezugriffe öffnen 
1: Nur für Schreibzugriffe öffnen 
2: Beides 
Bits 4..6: Sharing Mode (vergl. Funktion 6Ch) 
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DS:DX: Zeiger auf ASCIIZ-String mit der vollständigen 
Pfadangabe. 


Out: 
AX: Dateihandle 


Anm.: Falls die Datei nicht gefunden wird, bricht die Funktion mit 
einer Fehlermeldung ab. Bei Gerätenamen wird kein Versuch ge- 
macht, das Gerät zu öffnen, sondern das Gerätehandle zurückgege- 
ben. 


Interrupt 21h, Funktion 3EH: ’Close File or Device’ 


In: 
AH: 3Eh 
BX: Handle 
Out: - 
Interrupt 21h, Funktion 3FH: ’Read From File or Device’ 
In: 
AH: 3Fh 
BX: Handle 
cx: Anzahl der zu lesenden Bytes 
DS:DX: Zeiger auf Datenpuffer 
Out 
AX: Anzahl der gelesenen Bytes 


Interrupt 21h, Funktion 40H: ’Write To File or Device’ 


In: 


AH: 40h 
BX: Handle 
cx: Anzahl der zu schreibenden Bytes 
DS:DX Zeiger auf Datenpuffer 
Out 
AX: Anzahl der geschriebenen Bytes 


Interrupt 21h, Funktion 42H: ’Move File Pointer’ 
In: 

AH: 42h 

AL: Movemode 
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0: Relativ zum Anfang der Datei 
1: Relativ zur aktuellen Position 
2: Relativ zum Dateiende 


BX: Handle 
CX:DX Distanz in Bytes 
Out: 


DX:AX Neue Dateiposition 
Interrupt 21h, Funktion 45H: ’Duplicate File Handle’ 


In: 
AH: 45h 
BX: Handle 
Out 
AX: Zweites Handle 


Anm.: Die Funktion erlaubt es zwei Prozessen, auf die gleiche Ein- 
heit zuzugreifen. Wenn es sich dabei um eine Datei handelt, wirkt 
sich eine Veränderung des Schreib-/Lesezeigers auf beide Handles 
aus. 


Interrupt 21h, Funktion 46H: ’Force Duplicate File Handle’ 


In: 
AH: 46h 
BX: Handle 1 
cx: Handle 2 
Out: - 


Anm.: Die Funktion gestattet es, den Handle, der in CX übergeben 
wird, auf die Einheit umzuleiten, auf die sich der in BX übergebene 
Handle bezieht. Die Datei/Einheit, auf die sich Handle Zwei bezog, 
wird geschlossen. 
Interrupt 21h, Funktion 57H: ’Get/Set File Date and Time’ 
In: 
AH: 57h 
AL: Untercode: 
0: Get Date and Time 
1: Set Date and Time 
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BX: Handle 

cXx: Zeit (Set) 

DX: Datum (Set) 
Out 

cX: Zeit (Get) 

DX: Time (Get) 


Anm.: Das Format von Datum und Uhrzeit ist das Standard-DOS- 
Format, wie es auch beim Verzeichniseintrag benutzt wird. 


Interrupt 21h, Funktion 5AH: ’Create Temporary Filename’ 
In: 

AH: 5Ah 

cx: Attribute 

DS:DX Zeiger auf Puffer mit dem Pfadnamen 
Out: Neuer Dateiname im Puffer 
Anm.: Der Puffer muß genügend Platz für den Dateinamen enthal- 
ten - mindestens 13 Byte - und die Pfadangabe ist mit einem Back- 
slash ’\’ abzuschließen. Die Funktion erzeugt einen beliebigen 
Dateinamen, der im System nicht vorkommt und unter dem eine 
temporäre Auslagerungsdatei erzeugt werden kann. Die Funktion 
legt diese Datei jedoch nicht an (und gibt daher auch kein Handle 
zurück), sondern garantiert lediglich, daß keine vorhandene Datei 
überschrieben (und damit gelöscht wird), wenn der zurückgegebe- 
ne Dateiname genutzt wird. 


Interrupt 21h, Funktion 5BH: ’Create New File’ 


In: 
AH: 5Bh 
cx: Attribute 
DS:DX Zeiger auf ASCIIZ-String mit der vollständigen 
Pfadangabe. 
Out 
AX: Dateihandle 


Anm.: Die Datei wird nicht angelegt, wenn ein Eintrag gleichen Na- 
mens in dem Verzeichnis bereits existiert. Sonst entspricht der Auf- 
ruf ganz der Funktion 3Ch. 
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Interrupt 21h, Funktion 5CH: ’Lock/Unlock File Access’ 


In: 
AH: 5Ch 
AL: Unterfunktion 
0: Lock 
1: Unlock 
BX: Handle 
CX:DX Dateioffset 
SI:DI Länge des zu sperrenden Bereichs 
Out: - 


Anm.: Mit Hilfe dieser Funktion läßt sich der Dateizugriff für andere 
Prozesse sperren und entsperren. Da DOS an sich kein Multitasking 
erlaubt, ist die Funktion vor allem im Netzwerkbetrieb sinnvoll 
nutzbar, um Zugriffskonflikte auszuschließen. 


Interrupt 21h, Funktion 6CH: ’Extended Open/Create File’ 


(ab DOS 4.0) 
In: 

AH: 6Ch 

AL: 0 

BX: Modus 

cx: Attribut 

DX: Flags 

DS:SI Zeiger auf ASCIIZ-String mit dem Dateinamen 
Out 

AX: Handle 

cx: Statusmeldung 


Anm.: Dieser Aufruf ermöglicht es, eine Datei im Netzwerk mit fest- 
gelegten Zugriffsrechten in spezifizierter Weise zu eröffnen. Für das 
Moduswort in BX gilt folgende Codierung: 
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Bit Bedeutung 
0..2 Open Mode: 
0: Read Only 
1: Write Only 
2: Read / Write 
4..7 Sharing Mode: 


0: Alleiniger Zugriff (Compatibility Mode’) 
1: Exklusiver Zugriff 

2: Exklusiver Schreibzugriff 

3: Exklusiver Lesezugriff 

4: Freier Zugriff 


8: 0: Tochterprozesse können ebenfalls auf Datei 
zugreifen 


1: Tochterprozesse haben kein Zugriffsrecht 


13: 1: Fehlerbehandlung bei Zugriffen durch Programm 
0: Fehlerbehandlung durch DOS 
14: 1: Aktualisieren der Datei nach jedem Schreibzugriff 


0: Aktualisieren beim Schließen der Datei. 


Für das Flag-Wort in DX gilt folgende Belegung: 


Bits Bedeutung 
0..3: 0: Falls Datei nicht existiert: mit Fehlermeldung 
abbrechen. 


1: Falls Datei nicht existiert: erzeugen. 


4.7: 0: Wenn Datei bereits existiert: mit Fehlermeldung 
abbrechen. 


1: Wenn Datei existiert: öffnen 

2: Wenn Datei existiert: neu eröffnen (überschreiben) 
Für den Rückgabestatus in CX gilt folgende Belegung: 
c& 0: Datei wurde geöffnet 

1: Datei wurde neu erzeugt 

2: Datei wurde geöffnet und gelöscht. 
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10.1.4 Weitere Dateifunktionen 


Bei den folgenden Funktionen des Interrupt 21h entspricht die 
Rückgabe von Fehlerwerten den Handlefunktionen. 


Interrupt 21h, Funktion 41H: ’Delete Directory Entry’ 


In: 
AH: 41h 
DS:DX Zeiger auf ASCIIZ-String mit der Pfadangabe 
Out: - 
Interrupt 21h, Funktion 43H: ’Get/Set File Attributes’ 
In: 
AH: 43h 
AL: Funktionscode 
0 = Get Attributes 
1 = Set Attributes 
cX: Attribute (Set) 
DS:DX Zeiger auf ASCHZ-String mit der vollständigen 
Pfadangabe 
Out: 
cx: Attribut (Get) 
Interrupt 21h, Funktion 4EH: ’Find First Matching File’ 
In: 
AH: 4Eh 
cX: Attribute 
DS:DX Zeiger auf ASCIIZ-String mit der vollständigen 
Pfadangabe 
Out: - 


Anm.: Bei erfolgreichem Aufruf wird ein Record in die Disk-Trans- 
fer-Area kopiert, dessen Aufbau Tabelle 10.2 zeigt. 

Dieser Record entspricht weitgehend dem Typ SearchRec der UNIT 
DOS. Der Aufbau des von DOS ’reservierten’ Bereichs läßt sich rela- 
tiv leicht entschlüsseln. Tabelle 10.3 zeigt den Inhalt dieses 
Bereichs. 
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Tabelle 10.3: 
Inhalt des re- 
servierten Be- 
reichs aus Ta- 
belle 10.2 


5 aan 


Nummer des zuletzt gefundenen Verzeichnisein- 
trags 


Startcluster des Verzeichnisses 


Die Eintragsnummer bezieht sich auf die physikalische Eintragsnum- 
mer. Da gelöschte Verzeichniseinträge nicht wirklich aus dem Ver- 
zeichnis entfernt sondern nur als gelöscht markiert werden, können 
bei der Numerierung Lücken entstehen. Aus dem Aufbau des Re- 
cords erklärt sich auch, warum bei Funktion 4Fh der Record noch 
einmal an DOS übergeben werden muß. 


Interrupt 21h, Funktion 4FH: ’Find Next Matching File’ 
In: 
AH: 4Fh 
(Die DTA muß noch den durch die Funktion 4Eh erzeugten 
Record enthalten) 


Out: Nächster passender Eintrag in der DTA 

Interrupt 21h, Funktion 56H: ’Rename File’ 

In: 
AH: 56h 
DS:DX Zeiger auf ASCIIZ-String mit dem altem Dateinamen 
ES:DI Zeiger auf ASCIIZ-String mit dem neuen Dateinamen 


Out: - 
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10.2 


Die DOS-Verzeichnisfunktionen 


Die Unit DOS bietet die meisten der hier vorzustellenden Funktio- 
nen bereits an. Dennoch kann es nützlich sein, die Aufrufkonven- 
tionen dieser DOS-Funktionen zu kennen, z.B. wenn man sie in 
TASM-Routinen direkt nutzen möchte oder wenn man nicht mit 
dem Datentyp String, sondern PChar arbeiten möchte, was vorteil- 
haft ist, da alle Funktionen auf diesem Stringtyp basieren. 


Die Fehlerbehandlung ist wie bei den Handlefunktionen: Wenn das 
Carıyflag gesetzt ist, steht in AX ein Fehlercode, sonst war der Auf- 
ruf erfolgreich. 
Interrupt 21h, Funktion 39H: ’Create Directory’ 
In: 
AH: 39h 
DS:DX Zeiger auf ASCIIZ-String mit Pfadangabe 
Out: - 
Interrupt 21h, Funktion 3AH: ’Remove Directory’ 
In: 
AH: 3Ah 
DS:DX Zeiger auf ASCIIZ-String mit Pfadangabe 
Out: - 
Interrupt 21h, Funktion 3BH: ’Change Directory’ 
In: 
AH: 3Bh 
DS:DX Zeiger auf ASCIIZ-String mit Pfadangabe 
Out: - 


Interrupt 21h, Funktion 47H: ’Get Current Directory’ 


In: 
AH: 47h 
DI: Laufwerk (0 = Default, 1 = A, etc.) 
DS:SI Zeiger auf 64-Byte-Puffer für ASCIIZ-String mit 


Pfadangabe 
Out: - 
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Anm.: Die Funktion liefert nur die Pfadangabe ohne den Laufwerks- 
buchstaben! Dieser muß somit bei Bedarf durch die Funktion 19h 
erfragt und eingefügt werden. 


Weitere Funktionen 


Interrupt 21h, Funktion 19H: ’Get Current Disk’ 


In: 
AH: 19h 
Out 
AL: Laufwerksnummer (A=0, B=1, ...) 


Interrupt 21h, Funktion 1AH: ’Set Disk Transfer Area’ 


In: 


AH: 1Ah 

DS:DX: Zeiger auf den neuen Transferpuffer 
Out: - 
Interrupt 21h, Funktion 29H: ’Parse File Name’ 
In: 

AH: 29h 

AL: Parsemode 

DS:SI Zeiger auf den String mit dem Dateinamen 

ES:DI Zeiger auf einen Puffer für den FCB 
Out 

AL: Status 


DS:SI Zeiger auf das Stringende 
ES:DI Zeiger auf den erstellten FCB 


Anm.: Die Funktion leistet gute Dienste, wenn man die FCB-Funk- 
tionen nutzen will, da sie Strings mit Wildcards korrekt bearbeitet, 


Interrupt 21h, Funktion 2FH: ’Get Disk Transfer Area’ 
In: 

AH: 2Fh 
Out: 

ES:BX: Zeiger auf die aktuelle DTA 
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Die UNIT HANDLES, die sich auf der beiliegenden Diskette findet, 
ist einfach eine passende Pascal-Schnittstelle für die DOS-Handle- 
funktionen. Kommandozeilenprogramme, die von DOS aus gestartet 
werden, sollten ihren Bildschirm-Output möglichst über das Handle 
für den Standardoutput leiten, da sich die Ausgabe dann über die 
’Option’ "> Dateiname" umleiten läßt. Auch die UNIT SYSTEMS ar- 
beitet mit der DOS-Bildschirmausgabe, unter der Voraussetzung, 
daß nicht die UNIT CRT benutzt wird. 


Das Interface der UNIT HANDLES: 


[RIEF TSTHTRHRNHEISERIETERISH RS ERESISIEICHRRTEERÄRTIERTR 


Copyright (C) Christian Baumgarten, Hamburg 1993. 


RT TTTHHÄHTTHTTTTHTHT TH TH HT H TH TÄHTHTHTHT HT Ä TH KH TAT TITAN 


{ 
{ 
{ Unit für das Dateimanagement mit Hilfe der Handlefunktionen 
{ 
{ 


UNIT HANDLES; 


INTERFACE 
const 
{ modus=0 anzahl entspr. offset ab anfang } 
{ modus=1 anzahl entspr. offset ab akt. position } 
{ modus=2 anzahl entspr. (neg.) offset ab Dateiende } 
{ sm = Seek Mode } 


sm start = 0; 
sm_actual = 1; 
smend =2; 


{ mode=0: Nur Lesen } 
{ mode=1: Nur Schreiben } 
{ mode=2: Lesen & Schreiben } 
{ om = Open Mode } 


om read =0; 
om write = 1: 
om access = 2; 


{ Handles der Standardgeräte: } 


h_kbd = $0000; 
h_crt = 80001; 
h_Aux = $0003; 
h_LPT = $0004; 


hIOResult:integer = 0; 
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procedure hTruncate(handle:word); 

function hFileSize(Handle:word): longint; 

function hFilePos(Handle:word):longint; 
procedure hSeekeof (Handle:word); 

function hEOF(Handle:word):boolean; 
procedure hRewrite(var Handle:word;s:string;attr:word): 
procedure hCreate(var Handle:word:;s:string;attr:word); 
procedure hOpen(var Handle:word;s:string;mode:byte); 
procedure hCreateTemp(var Handle:word;var path:string); 
procedure hClose(Handle:word); 
procedure hWrite(Handle:word: var puffer; Anzahl :word; var 
ergebnis:word); 
procedure hRead(Handle:word;var puffer ;Anzahl :word: var 
ergebnis:word); 
procedure hWriteln(Handle:word;s:string): 
procedure hReadIn(Handle:word;var s:string); 

function hSeek (Handle:word; anzahl :longint;modus:byte): longint; 
procedure hOutCTRLChar(handle:word;var s:string): 
procedure hInCTRLChar(handle:word:var s:string): 


IMPLEMENTATION 
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Die Aufteilung des Speichers ist beim PC weitgehend festgelegt. So 
liegt die Realmodus-Interruptvektortabelle im Adressbereich 00000h 
- 003FFh, entsprechend 256 Vektoren mit je 4 Byte. Direkt an die 
Interruptvektortabelle schließt sich der sogenannte BIOS-Datenbe- 
reich an. Dieser reicht von 00400h bis 004FFh. Dann folgen Daten 
des Betriebssystems (MS-DOS) und die Gerätetreiber. Im Anschluß 
daran folgt der Realmodus-Speicher für Anwendungsprogramme bis 
zur Adresse IFFFFh. Der Bereich von A0000h bis FFFFFh wird 
Upper Memory Area (UMA) genannt und läßt sich funktional noch 
weiter unterteilen: 


Der Bereich von A0000h..AFFFFh ist für den Graphik-Videospeicher 
der EGA-/VGA-Karte reserviert, der Bereich von B0000h..B7FFFh für 
den Textspeicher monochromer Graphikkarten, der Bereich von 
B8000h..BFFFFh für den Textspeicher von Farbgraphikadaptern. Der 
Bereich von C0000h...EFFFFh ist für ROM-Erweiterungen (z.B. EGA- 
/NGA-BIOS von C0000h...C7FFFh) bzw. den EMS-Seitenrahmen re- 
serviert, und im Bereich von F0000h...FFFFFh liegt das eigentliche 
ROM-BIOS / ROM-Basic des PC. Dieser Teil kann weiter unterteilt 
werden in den Bereich für das EGA-/VGA-ROM (C0000h...C7FFFh), 
den Bereich für ein evtl. Festplatten-BIOS (C8000h...CFFFFh, meist 
nur XT), ein erweitertes ROM-BIOS (E0000h...EFFFFh) und den 
Standard-Bereich für den EMS-Seitenrahmen (D0000h...DFFFFh). 


In den meisten Systemen werden in diesem Bereich jedoch Lücken 
bleiben. Diese Lücken werden Upper Memory Blocks (UMBs) ge- 
nannt und lassen sich auch mithilfe von EMM386.EXE für DOS re- 
servieren. In diesem Fall muß EMM386.EXE aber entweder der 
Kommandozeilenparameter 'NOEMS’ oder 'RAM’ übergeben wer- 
den. Mit der Kommandozeilenoption 'NOEMS’ wird der EMM-Mana- 
ger angewiesen, sich auf die Verwaltung der UMBs zu beschränken. 
Die Option ’'RAM’ weist ihn hingegen an, sowohl EMS-Speicher zu 
simulieren als auch eine UMB-Verwaltung einzurichten. Dies dürfte 
die einzig wahre Einstellung für Turbo-Pascal-Programmierer sein, 
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da die IDE auf diese Weise den EMS-Speicher nutzen kann und 
zugleich DOS zu großen Teilen in die UMA geladen werden kann. 
Selbst bei Nutzung einer VGA-Karte, für die der Adressbereich von 
A0000h bis C7FFFh (über die EMM386-Option x=A000-C7FF) reser- 
viert wird, kann die UMA, wenn der Bereich von E0000h..EFFFFh 
nicht vom ROM-BIOS benutzt wird, 96 KB umfassen. In diesem Fall 
ergibt sich folgendes Schema der UMA: 

Adressbereich Nutzung 

A0000h-AFFFFh VGA-Graphikspeicher 

BO000h-B7FFFh Videospeicher für monochromen Videomodus 
B8000h-BFFFFh Videospeicher für Textmodi 

C0000h-C7FFFh EGA-/VGA-ROM-BIOS 

C8000h-D7FFFh EMS-Seitenrahmen 

D8000h-EFFFFh 96-KB-UMA für DOS-Treiber etc. 

F0000h-FFFFFh Rechner-BIOS 

Bei dieser oder einer ähnlichen Konfiguration besteht die Möglich- 
keit, bis zu 630KB freien DOS-Speicher unterhalb von A0000h zu 
erhalten, und das, ohne auf Dienstprogramme wie SHARE oder 
DOSKEY zu verzichten. Die einzigen (externen) Treiber, die sich 


dann noch im konventionellen Speicher befinden, sind HIMEM.SYS 
und EMM386.EXE. 


Tabelle 11.1 listet einige feste Adressen des ROM-BIOS auf. Der 
Copyright-Vermerk des ROM-BIOS hat ein etwas seltsames Format, 
bei dem jedes Zeichen doppelt vorkommt. 


Adress 

F000h:8000h Rom-Copyright-Vermerk (Jedes Zeichen 
doppelt: also CCooppyyrriigghhtt...) 

F000h:EFC7h Ks Festplattenparametertabelle 


F000h:FAGEh |128x8 | Zeichenmatrizen für 8x8-Rom-Font, erste 
Hälfte 


FOOOh:FFFSh [86 |ROM-Datum in ASCII-Zeichen 
FOOOh:FFFEh Modell-Identifikationswort 


Die Belegung des BIOS-Datenbereich zeigt (ohne Anspruch auf 
Vollständigkeit) Tabelle 11.2. 
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24-Std.-Überlaufsflag für Systemzeit 


Status der Festplatte 


Neben dem BIOS-Datenbereich legt auch DOS im Bereich 00500h 
..005FFh einige Daten fest an. So findet sich beim AT z.B. an der 
Adresse 00500H ein Flag, das eine laufende Bildschirm-Hardcopy 


258 11 Das Speichermanagement 


signalisiert. Neben dem festen BIOS-Datenbereich werden z.T. noch 
einige Systemtabellen angelegt, deren Adresse durch einen Inter- 
rupt-Vektor festgehalten wird. Diese Interruptvektoren zeigen also 
nicht auf Routinen, sondern stellen nur Zeiger auf interne Tabellen 
dar. Tabelle 11.3 listet diese Vektoren auf. 


=. ba 
ren, die auf Zeiger auf Bildschirmparametertabelle 
ae Zeiger auf Tabelle mit Diskettenparametern 
1Fh Zweite Hälfte des 8x8-Font (wird durch GRAFTABL initiali- 
siert) 
Zeiger auf erste Festplattenparametertabelle 
Zeiger auf EGA-/VGA-Graphikzeichensatz 
Zeiger auf zweite Festplattenparametertabelle 
49h Zeiger auf Übersetzungstabelle der Tastatur 
11.1 Die Memory-Control-Blöcke 


Die DOS-Speicherverwaltung im Real Mode baut auf sogenannten 
Memory-Control-Blocks (MCB) auf. Alle reservierten Speicherblöcke 
beginnen an geraden Segmentadressen und belegen vielfache von 
Paragraphen (1 Paragraph = 16 Byte), so daß ihre Lage allein durch 
die 16-Bit-Paragraphen-Adresse vollständig gekennzeichnet ist. Die 
Speicherverwaltungsblöcke (MCBs) belegen jeweils genau einen 
Paragraphen. Den Aufbau zeigt Tabelle 11.4. 


Wird ein Programm geladen, so werden stets zwei Bereiche reser- 
viert, einmal eine Kopie des ’Environment’ oder Programmumge- 
bungsblocks und dann ein Block für das eigentliche Programm. Die 
Segmentadresse des Environment steht im PSP (Program-Segment- 
Prefix) ab Offset 2Ch. Residente Programme können den Umge- 
bungsblock im Prinzip nach dem Laden freigeben, wenn sie ihn 
nicht benötigen. 


Der Name des Nutzers im MCB ist bei Programmen der Programm- 
dateiname ohne Endung. Der MCB von TURBO.EXE enthält somit 
als Namen des Nutzers Turbo’ oder "TURBO’, abgeschlossen mit 
ASCII-Null. 
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Tabelle 11.5: 
Aufbau des 

DOS-Control- 
Blocks (DCB) 


Um die Liste der MCBs sichten zu können, benötigt man natürlich 
die Adresse des ersten MCB. Diese kann man über die 
(undokumentierte) DOS-Funktion 52h erfahren: 


Interrupt 21H, Funktion 52h: ’Get DOS Control Block’ 
IN: 

AH: 52h 
OUT: 

ES:BX: Zeiger auf den DCB (Tabelle 11.5, ab DOS 3.0) 


-4 Adresse des ersten MCB 


Zeiger auf den ersten Disk-Parameter-Block (DPB) 
Zeiger auf die Dateitabelle 


Zeiger auf den Header des ’CLOCK$’-Treibers 
Zeiger auf den Header des ’CON’-Treibers 


22H |Zeiger auf den Kopf des 'NUL’-Treibers, den Anfang der 
DOS-Treiberkette 


260 


11 Das Speichermanagement 


Die MCB-Kette ist ab DOS-Version 4.0 verändert worden. Vor DOS 
4.0 gab es nur zwei Typen von MCBs, deren Kennung ’M’ oder ’Z’ 
war, wobei ’Z’ den letzten MCB kennzeichnete. Seit DOS 4.0 gibt es 
sogenannte SCBs, sogenannte Sub-Control-Blocks. Ihr Aufbau ent- 
spricht dem der MCBs (fast) vollständig. Natürlich macht der 
’Nutzer’ bei den SCBs - Abgesehen von den Treibern - keinen Sinn. 
Die Kennungen der SCBs sind erweitert worden: 


’B’ = Puffer (BUFFERS = XX) 
’D’= Treiber (DEVICE = XX) 

’F= Handle-Tabelle (FILES = XX) 
U’ = Laufwerksumleitung 

’M’= Programm / Umgebung 
’S’= Stack (STACKS = XX,XX) 

X = FCB-Tabelle 


Enthält nun ein MCB als PSP-Segment-Adresse den Wert Acht, so ist 
dies ein Kennzeichen für einen System-Block, gefolgt von einer Li- 
ste mit SCBs. (Ein PSP-Segment mit dem Wert Acht ist unmöglich, 
da in diesem Bereich die Interrupt-Vektor-Tabelle liegt). Der erste 
SCB liegt in diesem Fall im darauffolgenden Paragraphen. 


Die UNIT SYSINFO beinhaltet einige Funktionen, mit deren Hilfe es 
möglich ist, einfach und wohldefiniert auf die MCB-Kette zuzugrei- 
fen - und zwar über ein Callback-Funktionen, wie sie so ähnlich 
auch bei den Kollektionen definiert sind. Um also z.B. eine Liste mit 
allen MCBs in einem eigenen Format aufzubauen und zu analysie- 
ren, ist es dann nicht mehr nötig, die Liste der MCBs direkt zu 
durchsuchen, sondern nur noch nötig, eine Prozedur zu schreiben, 
die die MCBs ’entgegennimmt’ und diese Prozedur der Funktion 
ForEachMCB zu übergeben. Die Prozedur muß global und als far 
deklariert worden sein. Sie könnte z.B. folgendermaßen deklariert 
sein: 


Procedure EnumMCBS(p:pMCB); far; 


Mit dem Aufruf Foreach(EnumMCBS) würde die Prozedur 
EnumMBCS nun für jeden gefundenen MCB aufgerufen. Diese Pro- 
grammiertechnik ist wesentlich einfacher und universeller einzuset- 
zen, als jede erneute Schleifenprogrammierung. Wer statt einer glo- 
balen Funktion lieber wie bei den Kollektionen eine lokale Funk- 
tion benutzen möchte, kann die erforderliche Aufrufstruktur der 
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UNIT OBJECTS entnehmen und die UNIT SYSINFO dann entspre- 
chend modifizieren. (Lokalen Prozeduren muß das BP-Register der 
übergeordneten Prozedur übergeben werden.) 


procedure ForEachMCB(What:MCBProc):; 
var p:pMCB; 
begin 
p:=FirstMCB; 
if (penil) then 
repeat 
if p*.typ in mcbtypes then 
begin 
What(p); 
if (p*.pspseg=8) and (chr(Mem[ptrrec(p).s+1:0]) in mcbtypes) then 
inc(ptrrec(p).s) else inc(ptrrec(p).s,p*.size+l): 
end else exit; 
until (p*.typ='2'): 
end: 
Der Zugriff auf die Memory-Control-Blocks macht also Adressarith- 
metik mit Paragraphenadressen nötig, so daß ein direkter Zugriff auf 
die MCB-Kette im Protected Mode nicht möglich ist. Wie man den- 
noch im Protected Mode eine solche Funktion implementiert, wird 
in Kapitel 12 beschrieben. (Benötigt werden kann so etwas, wenn 
zum Beispiel ein DPMI-Programm die Anwesenheit eines residenten 
Programms überprüfen muß und dies nicht anders als über die 


MCB-Kette möglich ist.) 


11.2 Die DOS-Speicherverwaltungsfunktionen 


DOS bietet dem Real-Mode-Anwendungsprogramm einige Funktio- 
nen des Interrupt 21h, um Speicherplatz zu reservieren und freizu- 
geben. Diese werden in den meisten Turbo-Pascal-Programmen be- 
nötigt, die eine Verzweigung zu DOS erlauben oder aber andere 
Programme (einschl. COMMAND.COM) aufrufen, da diese dem auf- 
zurufenden Programm DOS-Speicher zur Verfügung stellen bzw. 
den freien Speicher hernach wieder reservieren müssen. 


Interrupt 21h, Funktion 48h:’Allocate Memory’ 
IN: 


AR: 48h 
BX: Anzahl der zu reservierenden Paragraphen 
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OUT: 
Carıryflag = 1: AX = Fehlerkennung 
Carryflag = 0: AX = Segmentadresse 


BX: Anzahl der noch freien Paragraphen 
Interrupt 21h, Funktion 49h: ’Free Allocated Memory’ 
IN: 

AH: 49h 

ES: Segmentadresse des freizugebenden Bereichs 
OUT: 


Carryflag = 1: AX = Fehlerkennung 
Carıyflag=0: kein Fehler 


Interrupt 21h, Funktion 50h: ’Reallocate Memory Block’ 


IN: 
AH: 50h 
ES: Segmentadresse des Blocks 
BX: Neue Anzahl an Paragraphen 
OUT: 
Carryflag = 1: Fehlerkennung in AX 
Carryflag = 0: 
BX: Anzahl der verbleibenden freien Paragraphen 


Um die Größe des freien Speicherbereichs in Erfahrung zu bringen, 
ohne Platz zu reservieren, benutzt man die Funktion 48h und setzt 
die Anforderung auf FFFFh (d.h. 1MB). Da DOS diese Anforderung 
nicht erfüllen kann, wird kein Speicher reserviert und in BX die An- 
zahl der freien Paragraphen zurückgegeben. 


Die Nutzung der DOS-Speicherverwaltung 


Die Kette der MCBs ist insbesondere für Tools, die die Speicher- 
belegung ausgeben, oder für TSR (Terminate but Stay Resident) - 
Programme von Interesse. Für TSR-Programme ist die Liste deshalb 
von Bedeutung, weil es etwa unsinnig wäre, das gleiche TSR-Pro- 
gramm mehrfach zu laden. Um dies zu vermeiden, sollte also ein 
TSR-Programm bei der Installation die MCBs nach bereits geladenen 
Instanzen absuchen und ggf. die Programminstallation rechtzeitig 
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abbrechen. Wie so etwas aussehen kann, zeigen die Programme 
TSRDEMOn.PAS, deren Präsenz im Speicher sich dadurch bemerk- 
bar macht, daß jede Tastatureingabe durch einen kurzen ’Klick’ be- 
gleitet wird. Wird das Programm ein zweitesmal aufgerufen, so wird 
auch die erste Instanz wieder aus dem Speicher entfernt. Um die 
Kommunikation zwischen verschiedenen Instanzen desselben Pro- 
gramms unter DOS im Real-Mode zu ermöglichen, sind an sich ver- 
schiedene Wege gangbar. Einer wäre der, daß das bereits installierte 
Programm einen Interrupt umbiegt und jede neue Instanz diesen In- 
terruptvektor prüft. Dies kann unter Umständen jedoch zu Kompa- 
tibilitätsproblemen führen, falls mehrere Programme den gleichen 
Interrupt verbiegen. Es gibt jedoch auch andere Möglichkeiten. Eine 
dieser Möglichkeiten ist der Multiplexer-Interrupt 2Fh, der kurz in 
Kapitel 13 beschrieben wird. Eine andere ist das Durchsuchen der 
MCBs nach einem ’User’ mit einem bestimmten Namen. Wird dieser 
gefunden, so hat man automatisch die Adresse des PSP (Program- 
Segment-Prefix). 

Hierüber kann entweder die Adresse des Datensegments oder die 
Einsprungadresse einer FAR-Routine berechnet werden, so daß eine 
Kommunikation zwischen den Instanzen ermöglicht wird. Das letz- 
tere Verfahren wird in TSRDEMO1.PAS vorgeführt. Die Kommuni- 
kationsroutine tut allerdings in diesem Beispiel nichts weiter, als die 
(erste) Instanz zu deinstallieren. Natürlich könnten auch andere 
Aufgaben von einer solchen Routine erfüllt werden, etwa indem die 
rufende Instanz die CPU-Register vorher mit bestimmten Werten 
belegt. Hier sind der Phantasie des Programmierers keine Grenzen 
gesetzt. Eines jedoch muß beachtet werden: Es ist innerhalb der 
Serviceroutine nicht ohne weiteres möglich, DOS-Funktionen aufzu- 
rufen. Es wird daher oft günstiger sein, die gerade aktive Instanz di- 
rekt auf die Daten der zuerst geladenen Instanz zugreifen zu lassen. 
Dieses Verfahren wird in TSRDEMO2.PAS angewandt: Das Pro- 
gramm überprüft anhand der MCB-Liste vor der Installation, ob be- 
reits eine weitere Instanz im Speicher vorhanden ist. Ist dies der 
Fall, so wird der alte Interruptvektor gelesen und gesetzt. Danach 
wird die bereits vorhandene Instanz aus dem Speicher entfernt. 


Auf diese Weise wird das Programm mit dem ersten Aufruf instal- 
liert und mit dem zweiten wieder aus dem Speicher entfernt: 


{$M 1024,0,0} 
{ 1 KB Stack, kein Heap } 
uses crt,dos,sysinfo; 
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const ThisProgsName :DosName='TSRDEMO1'+#0; 
var p:pMCB; 

oldint09:pointer; 

calladdr:pointer; 


procedure Int09Handler; interrupt; 
begin 
if Port[$60] < $80 then 
begin 
Sound(5000); 
Delay(l); 
Nosound; 
end; 
asm 
pushf 
call dword ptr oldint09 
end: 
end; 


Function ProgLoaded(p:pMCB):Boolean; far; 

var i:byte; 

begin 
ProgLoaded:=False; 
if p*.typ<>'M' then exit; 
for i:=1 to 8 do if 
UpCase(p*“.name[i])<>ThisProgsName[i] then exit; 
if (p*.pspseg=prefixseg) then exit; 
ProgLoaded:=true; 

end; 


procedure ExitProg; far; assembler; 
{ Diese Deinstallations-Routine wird ausschließlich aus einer } 
{ anderen Programm-Instanz heraus aufgerufen. Deshalb muß sie } 
{ erst ihr eigenes Datensegment setzen. Der Aufruf von } 
{ SetintVec(9,01dint09) ist unbedingt zu vermeiden !! } 
asm 
push ds 
mov ax,seg @data 
mov ds,ax 
{ Alten Interrupt-Vektor installieren: } 
mov es,Seg0000 
lea si,oldint09 
mov di,4*9 
cld 
ci 
MOVSW 
MOVSW 
sti 
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pop ds 
end; 


begin 
p:=FirstMCBThat(ProgLoaded); 
if (p<>nil) then 

begin 


{ Programm ist schon im Speicher: } 
{ Far Call auf 'ExitProg' des bereits geladenen Programms } 
{ Der Offset der Routine ist identisch, da DOS nur an gerade } 
{ Paragraphenadressen lädt. Das Segment muß berechnet werden: } 
calladdr:=ptr(seg(exitprog)-prefixseg+p*.pspseg,ofs(exitprog)); 
asm 
call dword ptr calladdr 

end; 
{ Speicher des bereits installierten Programms freigeben: } 
Dos_DeAlloc(p*.pspseg); 
Halt(0); 

end else 

begin 
{ Installation der ersten Instanz: } 
{ Environmentbereich freigeben: } 


Dos_DeAl loc (MemWLprefixseg:$2C]); 
{ Turbo-Interrupt-Vektoren zurückschalten: } 
Swapvectors; 
{ Tastaturinterrupt umbiegen: } 
getintvec($09,01dint09); 
setintvec($09,@int09Handler) 
{ Resident im Speicher verbleiben: } 
Keep(0): 

end; 

end. 


Und das Programm TSRDEMO2: 


{$M 1024,0,0} 
{ 1. KB Stack, kein Heap } 
uses crt,dos,sysinfo: 


const ThisProgsName :DosName="TSRDEMO2 '+#0; 
var p:pMCB; 
oldint09:pointer; 


procedure Int09Handler; interrupt; 
begin 
if Port[$60] < $80 then 
begin 
Sound(5000); 
Delay(1); 
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Nosound; 
end; 
asm 
pushf 
call dword ptr oldint09 
end; 
end; 


Function ProgLoaded(p:pMCB):Boolean; far: 

var i:byte; 

begin 
ProgLoaded:=False; 
if p*.typ<>'M' then exit: 
for i:=1 to 8 do if 
UpCase(p“*.name[i])<>ThisProgsName[i] then exit: 
if (p*.pspseg=prefixseg) then exit; 
ProgLoaded:=true; 

end; 


begin 
p:=FirstMCBThat(ProgLoaded); 
if (p<nil) then 
begin 
{ Programm ist schon im Speicher: } 
{ Alten Interruptvektor aus dem Datensegment der ersten } 
{ Programm-Instanz lesen: } 
oldint09:=Pointer (MemL[p*.pspseg+(Dseg-prefixseg):ofs(oldint09)]):; 
{ Interrupt-Vektor zurücksetzen: } 
setintvec($09,01dint09); 
{ Speicherbereich der ersten Programminstanz freigeben: } 
Dos_DeAlloc(p*.pspseg): 


Halt(0); 
end else 
begin 

{ Installation der ersten Instanz: } 
{ Environmentbereich freigeben: } 


Dos_DeAlloc(MemWLprefixseg:$2C]): 

{ Turbo-Interrupt-Vektoren zurückschalten: } 
swapvectors; 

{ Tastaturinterrupt umbiegen: } 
getintvec($09,01dint09): 
setintvec($09,@int09Handler): 

{ Resident im Speicher verbleiben: } 
Keep(0): 
end; 

end. 


Die Routine ’FirstMCBThat’ und die DOS-Speicherfunktionen sind in 
der UNIT SYSINFO definiert. 
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Die Nutzung des Extended Memory 


Der Speicher-Bereich des PC wird i.a. etwa folgendermaßen unter- 
teilt: 


Adressbereich Bezeichnung 
00000H-9FFFFH DOS-Speicherbereich 
A0000H-FFFFFH Upper Memory Area (UMA) 
FFFFFH-10FFEFH High Memory Area (HMA) 
10FFEF- 222%? Extended Memory 


(Diese Bezeichnungsweise ist nicht immer eindeutig oder durch- 
gängig. Oft wird auch der Speicherbereich bis 1MB als DOS-Spei- 
cherbereich bezeichnet u.s.w.). MS-DOS belegt(e) nur die unteren 
640 KB des Systemspeichers. Da aber seit dem 80286 die CPU im 
Prinzip weit mehr als 1MB Speicher adressieren kann, gibt es ver- 
schiedene Möglichkeiten, diesen Speicherraum (wenn er denn in- 
stalliert ist), d.h. das Extended Memory, zu nutzen. Eine von diesen 
Arten - die über den EMS-Manager - wird in der Turbo Vision direkt 
als tEMSStream implementiert. Der EMS-Manager war ursprünglich 
vorgesehen, um Erweiterungsspeicher, der auf zusätzlichen Spei- 
cher-Karten im PC installiert wurde, zu verwalten. Um diesen Spei- 
cher Anwendungsprogrammen zugänglich zu machen, definiert der 
EMS-Manager ein Fenster’ im normalen Speicherbereich (d.h. in- 
nerhalb der 1 MB, die im Realmodus direkt ansprechbar sind). Der 
Erweiterungsspeicher wird in 16-KB-Seiten aufgeteilt und wahlweise 
in das EMS-Fenster eingeblendet, wobei das EMS-Fenster selbst 
meist eine Größe von 64 KB aufweist, so daß maximal vier Seiten 
auf einmal ’sichtbar’ sind. 


Diese Technik war ursprünglich für den 8086 vorgesehen, der ja 
maximal 1 MB direkt adressieren kann. Ab dem 80286 (und höher) 
lassen sich jedoch 16 MB (oder mehr) direkt von der CPU adressie- 
ren, so daß man auf die Fenstertechnik im Prinzip verzichten könn- 
te. Dennoch arbeitet der EMS-Manager auch bei diesen Prozessoren 
(im Real-Modus) mit der Fenstertechnik, um die Kompatibilität zu 
wahren. Damit dies möglich ist, muß jedoch erst ein Treiber für das 
Extended Memory installiert werden (wie etwa HIMEM.SYS). Der 
EMS-Manager reserviert dann einen Teil des Extended Memory und 
stellt ihn Anwendungsprogrammen als EMS-Speicher über ein Fen- 
ster unterhalb der 1-MB-Grenze zur Verfügung. Für das Anwen- 
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dungsprogramm ist es in diesem Fall gleichgültig, ob es sich um ex- 
ternen Speicher auf einer Erweiterungskarte oder um Erweiterungs- 
speicher oberhalb von 1 MB handelt. 


Die Fenstertechnik hat natürlich einige Nachteile. So gehen im Be- 
reich unterhalb von 1 MB 64 KB an Speicher für das EMS-Fenster 
'verloren’. Des weiteren kann je nach Art der Anwendung die sei- 
tenweise Speicherverwaltung sehr unpraktisch sein. Es ist pro- 
grammtechnisch immer günstiger, über einen zusammenhängenden 
Speicherbereich zu verfügen und diesen nach den Erfordernissen 
des Programms aufzuteilen. (Und tatsächlich bietet der EMM-Mana- 
ger auch Funktionen zum direkten Daten-Transfer in den EMM-Be- 
reich unter Umgehung des EMS-Fensters an.) 


Der EMS-Speicher muß aber beim AT keineswegs das gesamte Ex- 
tended Memory umfassen, auch wenn dies möglich ist. Normaler- 
weise wird der EMS-Speicher aber nur einen Teil des zur Verfügung 
stehenden Erweiterungsspeichers ausmachen. (Und wird der EMM- 
Manager mit der Option NOEMS versehen, so existiert gar kein 
EMS-Speicher, obschon ein EMM-Manager vorhanden ist. Eine sol- 
che Vorgehensweise ist u.U. sinnvoll, da in diesem Fall das EMS- 
Fenster von 64 KB im oberen Speicherbereich für Treiber zur 
Verfügung steht). Der Rest des AT-Speichers oberhalb 1 MB, der 
von dem XMS-Treiber HIMEM.SYS verwaltet wird, läßt sich im Real 
Mode mit den herkömmlichen Mitteln von Turbo Pascal durchaus 
nutzen, obwohl dies etwa in der TURBO VISION nicht vorgesehen 
ist. (Deshalb dieses Kapitel.) 


Der XMS-Manager verwaltet auch den Bereich des Upper Memory, 
sowohl als auch die sogenannte Higb Memory Area (HMA). 


Das Upper Memory umschließt den Bereich oberhalb der 640-KB- 
Grenze und Unterhalb der 1-MB-Grenze, d.h. von AO000H - 
FFFFFH. Dieser Bereich kann auch im Real Mode ohne weiteres 
adressiert werden, ist aber z.T. für den Videospeicher, ROM und 
EMS-Seitenrahmen reserviert. Bleibt dennoch ein Adressbereich 
ausgespart, so wird dieser Bereich vom Betriebssystem genutzt. Der 
High-Memory-Bereich ist der Bereich von FFFF:000FH bis 
FFFFH:FFFFH. Dieser Bereich ist ab dem 80286 im Prinzip ebenfalls 
direkt aus dem Real Mode heraus adressierbar - aber nur, wenn die 
21. Adressleitung (A20) aktiviert ist. Auch dieser Bereich wird meist 
vom Betriebssystem genutzt. Anwendungsprogramme sollten sich 
daher besser an das eigentliche Extended Memory ab 10FFFOH 
wenden. 
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11.4.1 


Der XMS-Manager 


Die meisten PC’s sind heutzutage serienmäßig mit mehr als einem 

Megabyte RAM-Speicher ausgerüstet, allein schon auf Grund der 

großen Verbreitung, die die Betriebssystemerweiterung WINDOWS 

erfahren hat, welche ja bei 286er und 386er-Systemen im Protected 

Mode arbeitet und somit den Erweiterungsspeicher nutzen kann. 

Um auch in Pascal-Programmen, die normal unter DOS im Real 

Mode laufen, den Erweiterungsspeicher zu nutzen, bedarf es mehre- 

rer Voraussetzungen: 

1) Es müssen entsprechende Treiber für den Erweiterungsspeicher 
über dieCONFIG.SYS fest installiert werden. 

2) Der Erweiterungsspeicher muß groß genug sein, damit er nicht 
schon von DOS vollständig belegt wird. 

3) Es müssen entsprechende Routinen in Turbo-Pascal implemen- 
tiert werden, die die Treiberfunktionen für den Programmierer 
nutzbar machen. 

Der dritte Punkt soll hier ohne Anspruch auf Vollständigkeit erläu- 

tert werden, soweit es den XMS-Manager (z.B. HIMEM.SYS) betrifft. 

Abschnitt 11.4.2 stellt die (z.T. sehr ähnlichen) Funktionen des 

EMM-Managers (z.B. EMM386.EXE) vor. 

Der XMS-Manager wird nicht - wie sonst üblich - über einen Inter- 

rupt angesprochen, sondern über einen FAR CALL. Die Adresse des 

Einsprungpunktes läßt sich über den Multiplexer-Interrupt 2Fh 

(vergl. Kapitel 13) abfragen: 


Interrupt 2Fh, Funktion 4300h: ’Get XMS-Installation-Status’ 


IN: 
AX 4300h 
OUT: 
AL 80h: XMS-Manager ist installiert 
Interrupt 2Fh, Funktion 4310h: ’Get XMS-Call-Address’ 
IN: 
AX 4310h 
OUT: ES:BX Adresse des XMS-Funktionshandlers 


Anm.: Alle XMS-Treiberaufrufe werden über diese FAR-CALL-Adres- 
se abgewickelt, wobei der XMS-Manager bei allen Aufrufen im Regi- 
ster BL einen Status-Code zurückgibt. Des weiteren wird bei allen 
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Funktionen - wenn im folgenden nicht anders beschrieben - in AX 
ein Fehlerflag zurückgeliefert. D.h. ist AX = 0, so trat ein Fehler 
auf, ist AX = 1, so war der Aufruf erfolgreich. Die Bedeutung der 
Fehlercodes zeigt Tabelle 11.6. Die Funktionsnummer des XMS- 
Treibers wird mit dem Wert im Register AH ausgewählt. 


CALL XMS-Manager, Funktion 00h: ’Get XMS-Version-Number’ 


IN: 
AH: 00h 
OUT: 
AX: Versionsnummer 
BX: Interne Revisionsnummer 
DX: HMA-Status (0 = kein HMA vorhanden) 


Anm.: Die Versionsnummer wird als BCD-Zahl zurückgegeben. 


ode | Bedeutung 
Ungüliger Funktionscode in AH 
Fehler bei Schalten der 21. Adressleitung (A20) 


Allgemeiner Fehler im Treiber 


D 


E 
‚ 


es! 


=) 


Unkorrigierbarer Fehler im Treiber 
Kein HMA-Bereich vorhanden 
HMA wird bereits benutzt 
Angeforderter HMA-Block zu klein 
HMA-Bereich nicht beleg 
Adressleitung A20 ist noch aktiviert 


oO 


Kein freies Extended Memory mehr vorhanden 
Alle Handles für Extented Memory belegt 
Handle ungültig 

Quellenhandle ungültig 


> 


>z 


HN 


h 
h 
h 
h 


Ash Unerlaubte Überlappung der Transfer-Adressen 


Quell-Adresse ungültig 


un 


Ziel Handle ungültig 


N 


Ziel Adresse ungültig 


N 


Blocklänge ungültig 


4h |Adressleitung A20 ist noch aktivien | 
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Tabelle 11.6 
(Fortsetzung) 


i 
B2h 9 


5 


ah [Bock ———— | 


Kein Upper Memory Block mehr frei 
82 | Ungültige UMB-Paragraphenadresse 


Ein Wert von Null bedeutet einen fehlerfreien Aufruf. 


CALL XMS-Manager, Funktion 01h: ’Allocate HMA-Area’ 


IN: 

AH: 01h 

DX: Größe in Byte 
OUT: 

AX: Status 

BL: Fehlercode 


Den folgenden Funktionen wird nur die Funktionsnummer in AH 
übergeben. Sie geben nur Statuswert (AX) und Fehlercode (BL) zu- 
rück: 


Funktion Aufgabe 


02h Release HMA Area 
03h Global Enable A20 
04h Global Disable A20 
05h Local Enable A20 
06h Local Disable A20 


CALL XMS-Manager, Funktion 08h: ’Get Extended Memory Size’ 


IN: 
AH: 08h 

OUT: 
AX: Größe des größten freien Blocks in Kbyte 
DX: Größe des freien Ext. Memory in Kbyte 


BL: Fehlercode (0 = Fehlerfreier Aufruf) 
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CALL XMS-Manager, Funktion 09h: ’Allocate Ext. Memory’ 


IN: 

AH: 09h 

DX: Größe des gewünschten Blocks in KB 
OUT: 

DX: Handle 


CALL XMS-Manager, Funktion 0Ah: ’Free Extended Memory’ 


IN: 
AH: OAh 
DX: Handle des Blocks 
OUT: (Fehlerinfo siehe oben) 
CALL XMS-Manager, Funktion OBh: ’Move Ext. Memory Block’ 
IN: 
AH: 0Bh 
DS:SI Zeiger auf Transferrecord 
OUT: (Fehlerinfo s.o.) 


Anm.: Der Transferrecord hat folgenden Aufbau: 


Offset Länge Inhalt 


0 4 Zahl der zu verschiebenden Bytes 

4 2 Handle des Quellblocks / 0000H 

6 4 Offset im Quellblock / Zeiger auf Quell-Bereich 
0Ah 2 Handle des Zielblocks / 0000H 

Och 4 Offset in den Zielblock / Zeiger auf Ziel-Bereich 


Die Anzahl der zu transferierenden Bytes muß immer gerade sein, 
da nur Worte transferriert werden. Ist das Quell-/Zielhandle gleich 
Null, so wird im nachfolgenden DWORD eine Adresse im DOS-Be- 
reich (Segment:Offset) erwartet. Wichtig ist, daß sich die Adressen 
der Blöcke nicht überschneiden dürfen, da die Funktion sonst mit 
einer Fehlermeldung in AX bzw. BL abbricht. 
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CALL XMS-Manager, Funktion 0Ch: ’Lock Ext. Memory Block’ 


IN: 
AH: 0Ch 
DX: Handle 
OUT: 
AX=1: DX:BX = Physikalische Adresse des Blocks 
AX=0: BL = Fehlercode 


Anm.: Der XMS-Manager verschiebt die Blöcke im Extended Memo- 
ry so, daß den Anforderungen am besten genügt werden kann. 
Wird nun die physikalische Adresse benötigt, so muß der Block ge- 
gen weitere Verschiebungen gesperrt werden. Ein gesperrter Block 
muß vor einer Freigabe entsperrt werden. 


CALL XMS-Manager, Funktion 0Dh: ’Unlock Ext. Mem. Block’ 


IN: 
AH: 0Dh 
DX: Handle 
OUT: - 
CALL XMS-Manager, Funktion OFh: ’Resize Ext. Memory Block’ 
IN: 
AH: OFh 
DX: Handle 
BX: Neue Blockgröße (in KB) 
OUT: - 
CALL XMS-Manager, Funktion 10h: ’Allocate Upper-Memory- 
Block’ 
IN: 
AH: 10h 
DX: Geforderte Blockgröße in Paragraphen 
OUT: 
AX=1: DX = Blockgröße 


BX = Paragraphenadresse 
AX=0: BL = Fehlercode 
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CALL XMS-Manager, Funktion 11h: ’Free Upper Memory Block’ 


IN: 

AH: 11h 

DX: Paragraphenadresse des Blocks 
OUT: - 


Die UNIT _XMS_ enthält die entsprechenden Schnittstellen-Routinen 
zur Nutzung des XMS-Managers. Der dazugehörige Treiber 
(HIMEM.SYS) ist bei den neueren MS-DOS-Versionen bzw. bei 
WINDOWS im Lieferumfang enthalten und meistens auch über die 
CONFIG.SYS installiert. 


Eine weitere Möglichkeit zur Nutzung des Extended Memory be- 
steht natürlich in der Installation einer RAM-Disk (VDISK.SYS / 
RAMDRIVE.SYS), auf die ohne weitere Software zugegriffen werden 
kann, wie auf Disketten oder Festplatten. 


Diese Möglichkeit ist allerdings nur dann interessant, wenn nicht 
zugleich Programme betrieben werden sollen, die wie WINDOWS 
mit den XMS/EMM-Treibern arbeiten. Der Speicherraum, der für ei- 
ne RAM-Disk reserviert wird, steht dann als konventioneller Exten- 
ded-Memory-Bereich nicht mehr zur Verfügung. Außerdem ist der 
Zugriff auf die Daten einer RAM-Disk durch die Dateistruktur er- 
schwert. 


Die Funktionen des EMM-Managers 


Bevor die Funktionen des EMS, die der EMM-Manager zur Verfü- 
gung stellt, in Anspruch genommen werden können, muß ein An- 
wendungsprogramm überprüfen, ob ein EMM-Manager überhaupt 
installiert ist. Leider kann das Anwendungsprogramm nicht davon 
ausgehen, daß der EMS - Interrupt 67h überhaupt initialisiert ist. 
Deshalb muß zuerst geprüft werden, ob der Interrupt-Vektor un- 
gleich 'NIL’ ist. Aber selbst, wenn der Vektor auf irgendeinen 
Handler im Arbeitsspeicher zeigt, so ist noch nicht gesagt, daß es 
sich wirklich um einen EMS-Manager handelt. Will man ganz sicher 
gehen, so ist es notwendig, die Treiberkette (oder die Kette der 
MCBs) auf einen Handler mit dem Namen ’EMMXXXX0’ zu durch- 
suchen. Nur, wenn ein solcher Treiber oder Speicherblock gefun- 
den wird, kann das Anwendungsprogramm davon ausgehen, daß 
der EMS-Manager-Interrupt 67h auch tatsächlich installiert ist. Eine 
andere Möglichkeit - die genau genommen bessere, da sie ohne 
Tricks’ arbeitet - besteht darin, den Treiber als Datei’ bzw. Gerät 
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Tabelle 11.7: 
Fehlercodes 
des EMS-Ma- 
nagers 


über DOS anzusprechen, wie dies ja auch mit ’'COM’ oder ’PRN’ 
möglich ist: 


Function EMMInstalled:Boolean; 
var Driver: Text; 
begin 
{$I-} 
Assign(Driver,, "EMMXXXX0'): 
Reset(Driver); 
EMMInstalled:=IOResult=0: 
Close(Driver); 
{$I+}) 
end; 


Im folgenden werde ich die wesentlichen Funktionen des EMS-Ma- 
nagers vorstellen. Einige Funktionen, die z.T. in der Literatur ange- 
führt werden, werden hier ausgespart. Der Grund hierfür ist schlicht 
der, daß sie mir umständlich bis überflüssig erschienen sind - zu- 
mindest im Sinne einer Nutzung des EMS-Managers in 80286er-PCs 
(und höher). Eine Speicherverwaltung, die auf solche Funktionen 
angewiesen ist, erscheint mir zudem unzeitgemäß. Wenn die Mög- 
lichkeit besteht, im Protected Mode zu programmieren (bzw. Pro- 
gramme laufen zu lassen), so kann meines Erachtens die weitere Er- 
stellung von speicherintensiven Ms-Dos-Anwendungen für den 
Real-Mode nur noch unter Hinweis auf eine relativ unkomplizierte 
Nutzung des Extended Memory gerechtfertigt werden. 


Aufruf fehlerfrei durchgeführt 
Interner Treiberfehler 


81h Hardware-Fehler 

82h Treiber nicht bereit (’busy’) 
83h Handlecode ungültig 
Ungültige Funktionsnummer 


5 
6 


Alle Handles vergeben 


Fehler im Mapping-Aufruf 


Zuwenig Seiten für diese Anforderung 


© Io Io Io 100 
N ns 


8 Zuwenig freie Seiten für diese Anforderung 


89h 


Handle für Seite 0 ungültig 
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EMS-Seitennummer zu groß 
92h 


> 


je5| 


3443: 
>13 |$ > 


Konventionelles / Expanded Memory überlappen 
Offset in logische Seite größer als Seite 
Bereich größer 1 MB 


Adress-Überlappung bei Exchange-Anweisung 


Länge des zu verschiebenden Bereichs zu groß 


© Io Io Io 
Ss In I |w 


8 
A2h 


Mithilfe der folgenden Funktion kann der Status des Managers abge- 
fragt werden. Im Prinzip wird die Funktion aber nicht benötigt, da 
der EMM-Treiber bei jedem Aufruf in AH einen Statuswert zurück- 
gibt. Dieser Statuswert wird deshalb im folgenden nicht mehr be- 
sonders erwähnt. Tabelle 11.7 zeigt die Belegung dieses Statusbytes. 


» I» |2 19 
Ne) 


E 


Interrupt 67h, Funktion 40h: ’Get Manager Status’ 
IN: 
AH 40h 


AH: Status 
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Interrupt 67h, Funktion 41h: ’Get Page Frame Segment’ 


IN: 
AH: 41h 
OUT: 
BX: Seitenrahmensegment 


Interrupt 67h, Funktion 42h: ’Get Number of Free Pages’ 


IN: 
AH: 42h 

OUT: 
BX: Freie Seiten (1 Seite = 16 KB) 
DX: Anzahl aller EMS-Seiten 


Interrupt 67h, Funktion 43h: ’Allocate EMS-Pages’ 


IN: 

AH: 43h 

BX: Anzahl der angeforderten Seiten 
OUT: 

DX: Handle 
Interrupt 67h, Funktion 44h: ’Show / Hide Logical Page’ 
IN: 

AH: 44h 

AL: Physikalische Seite (0..3) 

BX: Seitennummer 

DX: Handle 
OUT: 5 


Anm.: Das EMS-Seitenrahmen-Segment wird in vier physikalische 
16-KB-Seiten eingeteilt. Der unter dem Handle in DX reservierte 
Speicherbereich wird in die logischen 16-KB-Seiten 0..Anzahl der 
Seiten - 1 eingeteilt. Mithilfe der Funktion 44h läßt sich nun jede 
logische Seite in jede physikalische Seite einblenden. 
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Interrupt 67h, Funktion 45h: ’Release EMS-Pages of Handle’ 


IN: 
AH: 45h 
DX: Handle 
OUT: - 


Anm.: Die Funktion gibt alle reservierten Seiten des Handles frei. 
Nach dem Aufruf ist das Handle deshalb ungültig. 


Interrupt 67h, Funktion 46h: ’Get EMM-Version-Number’ 


IN: 
AH: 46h 
OUT: 
AL: Versionsnummer (BCD-Zahl: 40h entspr. Version 4.0) 
Interrupt 67h, Funktion 47h: ’Save Page Mapping’ 
IN: 
AH: 47h 
DX: Handle 
OUT: - 


Anm.: Die Funktion sichert die aktuelle Konfiguration der Seiten des 
Handles im EMS-Fenster. Diese Konfiguration läßt sich danach 
mithilfe der Funktion 48h restaurieren. 


Interrupt 67h, Funktion 48h: ’Restore Page Mapping’ 


IN: 
AH: 48h 
DX: Handle 
OUT: - 


Anm.: Siehe Funktion 47h 
Interrupt 67h, Funktion 4Bh: ’Get Number of Used Handles’ 


IN: 
AH: 4Bh 
OUT: 
BX: Anzahl der aktuell genutzten EMM-Handles 


Anm.: Die Zahl der freien Handles liegt zwischen 0 und 255. 
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Interrupt 67h, Funktion 4Ch: ’Get Pages of Handle’ 


IN: 
AH: 4Ch 
DX: Handle 
OUT: 
BX: Anzahl der Seiten, die unter dem Handle reserviert 
sind. 
Interrupt 67h, Funktion 4Dh: ’Get Pages of All Handles’ 
IN: 
AH: 4Dh 
ES:DI: Zeiger auf einen 1 KB großen Puffer 
OUT: 
BX: Zahl der genutzten Handles 


Anm.: Die Tabelle enthält nach dem Aufruf für jedes genutzte 
Handle zwei Worte. Im ersten Wort steht die Handlenummer und 
im zweiten die Anzahl der unter diesem Handle reservierten Seiten. 
Die folgende Funktion erlaubt ebenfalls die Abfrage dieser Tabelle - 
einschließlich ihrer Modifikation. 


Interrupt 67h, Funktion 4Eh: ’Get / Set Page Map’ 


Die Funktion enthält eine Reihe von Unterfunktionen zur Manipula- 
tion der Seitenzahlen, die den einzelnen Handles zugeordnet wer- 


den. 
Unterfunktion 00h: ’Get Page Map’ 
IN: 
AX: 4E00h 
ES:DI: Zeiger auf Handle-Seitentabelle 
OUT: - 


Anm.: Die Tabelle enthält für jeden Eintrag 2 Worte; im ersten 
Wort steht das Handle, im zweiten steht die Anzahl der reser- 
vierten Seiten. Die Größe der Tabelle kann mit Unterfunktion 3 
erfragt werden. 
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Unterfunktion 01h: ’Set Page Map’ 
IN: 

AX: 4E01h 

DS:SI: Zeiger auf Handletabelle, die gesetzt werden soll 
OUT: - 
Anm.: Die Anwendung sollte vorher die Tabelle über Funktion 
00h ermitteln, modifizieren und schließlich mit dieser Funktion 
setzen. 
Unterfunktion 02h: ’Change Page Map’ 
IN: 

AX: 4E02h 

DS:SI: Zeiger auf zu setzende Handletabelle 

ES:DI: Zeiger auf die zu ermittelnde Tabelle 
OUT: - 
Anm.: Der Treiber übernimmt bei dieser Funktion die Einstel- 
lungen, die die über DS:SI adressierte Tabelle enthält, und trägt 
die alte Seiteneinteilung in die über ES:DI adtessierte Tabelle ein. 
Unterfunktion 03h: ’Get Page Map Size’ 
IN: 

AX: 4E03h 
OUT: 

AL: Größe der Handletabelle in KB 


Interrupt 67h, Funktion 4Fh: ’Get / Set Partial Page Map’ 

Die Funktion enthält eine Reihe von Unterfunktionen zur Manipula- 
tion der Handle-Seiten-Tabelle, ähnlich der Funktion 4Eh. Im Ge- 
gensatz zu dieser erlaubt sie jedoch auch die Manipulation eines 
Teils dieser Tabelle. 


Unterfunktion 00h: ’Get Partial Page Map’ 
IN: 
AX: 4F00h 
DS:SI: Zeiger auf Anforderungstabelle 
ES:DI: Zeiger auf Ergebnispuffer 
OUT: - 


11.4 Die Nutzung des Extended Memory 281 


Anm.: Die Anforderungstabelle besteht aus N+1 Worten. Im 
ersten Wort steht die Anzahl N der interessierenden Handles, in 
den Folgenden N Worten stehen die interessierenden 
Handlenummern. Die Ausgabetabelle hat das gleiche Format wie 


in Funktion 4Eh. Die Größe der Tabelle kann mit Unterfunktion 
02h erfragt werden. 
Unterfunktion 01h: ’Set Partial Page Map’ 
IN: 
AX: 4F01h 
DS:SI: Quelltabelle 
ES:DI: Zieltabelle 


OUT: - 
Unterfunktion 02h: ’Get Partial Map Size’ 
IN: 
AX: 4F02h 
BX: Zahl der Handles 
OUT: 


AL: Anzahl der Einträge in der Tabelle 


Interrupt 67h, Funktion 50h: ’°Show / Hide Pages of Handle’ 


Diese Funktion erlaubt es, gleichzeitig mehrere Seiten eines Handles 
in das EMS-Fenster einzublenden. 


IN: 
AH: 50h 
AL: 0/1: physikalische Nummer / Segmentadresse 
cx: Anzahl der Einträge in der Tabelle 
DX: Handle 
DS:SI: Adresse der Tabelle 
OUT: - 


Anm.: Die über DS:SI adressierte Tabelle enthält für jede einzublen- 
dende Seite zwei Worte. Im ersten Wort steht die logische Seiten- 
nummer, die eingeblendet werden soll, im zweiten Wort die physi- 
kalische Seite, in die eingeblendet werden soll (AL=0), oder die 
Segmentadresse, in die eingeblendet werden soll (AL=1). 
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Interrupt 67h, Funktion 51h: ’Reallocate Pages of Handle’ 


IN: 
AH: 
BX: 
DX: 

OUT: 
BX: 


51h 
Neue Zahl der Seiten 
Handle 


Anzahl der Seiten 


Anm.: Über diese Funktion läßt sich die Anzahl der Seiten, die ei- 
nem bestimmten Handle zugeordnet sind, neu bestimmen. 


Interrupt 67h, Funktion 52h: ’Attribute Functions’ 


Mithilfe dieser Funktionen lassen sich die Attribute eines Handles 
(löschbar/fest) manipulieren. Die Funktion hat drei Unterfunktio- 


nen: 


Unterfunktion 00h: ’Get Handle Attributes’ 


IN: 


AX: 
DX: 


OUT: 
AL: 


5200h 
Handle 


Attribut (Bit 0 = fest/löschbar) 


Unterfunktion 01h: ’Set Handle Attribut’ 


IN: 


AX: 


BL: 


DX: 


OUT: 


5201h 
Attribut 
Handle 


Unterfunktion 02h: ’Is Handle fixable ?’ 


IN: 


AX: 


OUT: 
AL: 


5202h 


0: Treiber unterstützt keine festen Handles 
1: Treiber unterstützt auch feste Handles 
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Interrupt 67h, Funktion 53h: "Handle Name Functions’ 


Diese Funktion enthält eine Reihe von Unterfunktionen, mit denen 
es möglich ist, Handles Namen zu geben, bzw. über Namen zu 
verwalten. Dies ist für die Kommunikation zwischen verschiedenen 
Programme u.U. sehr von Vorteil. 


Unterfunktion 00h: ’Get Handle Name’ 


IN: 

AX:  5300h 

DX: Handle 

ES:DI: Zeiger auf ein Namensfeld von acht Zeichen 
OUT: - 
Unterfunktion 01h: ’Set Handle Name’ 
IN: 

AX:  5301h 

DX: Handle 

DS:SI: Zeiger auf ein Feld mit dem Namen (acht Zeichen) 
OUT: - 


Interrupt 67h, Funktion 54h: "Handle Name List Functions’ 
Mithilfe dieser Funktion läßt sich das Handle-Verzeichnis abfragen. 
Es existieren drei Unterfunktionen: 


Unterfunktion 00h: ’Get Handle Name List’ 


IN: 

AX: 5400h 

ES:DI: Zeiger auf eine Tabelle mit zehn Byte pro Handle. 
OUT: - 


Anm.: Die Anzahl der Handles beträgt normalerweise 255, läßt 
sich aber auch über Unterfunktion 2 abfragen. Jeder Eintrag in 
der Handletabelle enthält im ersten Wort die Handlenummer und 
im Anschluß ein 8-Zeichen-Feld mit dem Namen. Hat das Handle 
keinen Namen, so sind alle Zeichen auf Null gesetzt. Ist das 
Handle unbenutzt, so ist die Handlenummer 0. 
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Unterfunktion 01h: ’Search For Handle Name’ 


IN: 

AX: 5401h 

DS:SI Zeiger auf 8-Byte-Feld mit dem Namen 
OUT: 

DX: Handle 
Unterfunktion 02h: ’Get Total Handle Count’ 
IN: 

AX: 5402h 
OUT: 


BX: Anzahl der Handles 


Interrupt 67h, Funktion 55h: ’Set Page Map and JUMP’ 

Mithilfe dieser Funktion lassen sich zwei Aufgaben zugleich be- 
werkstelligen: Zuerst das Einblenden bestimmter Speicherseiten und 
dann ein JUMP FAR (in diese Speicherseiten). Die Funktion ist somit 
für Programme gedacht, die in den EMS-Seiten Code abgelegt ha- 
ben. In AL wird eine Null übergeben, wenn in der Tabelle mit den 
Seitennummern die physikalische Seitennummer angegeben wird, 
in die die Speicherseite einzublenden ist. Wird in AL eine Eins ein- 
getragen, so steht die Segmentadresse anstelle der physikalischen 
Seite in der Tabelle. 


IN: 

AH: 55h 

AL: 01 

DX: Handle 

DS:SI: Zeiger auf die Tabelle 
OUT: = 


Anm.: Die Tabelle besitzt folgenden Aufbau: 
Offset Länge Inhalt 


0 4 JUMP-FAR-Adresse 
4 1 Anzahl der vor dem JUMP einzublenden Seiten 
5 4 Zeiger auf die Seitentabelle mit 2 Worten / Eintrag: 


1. Wort: Logische Seitennummer 
2. Wort: Phys. Seite / Segmentadresse 
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Interrupt 67h, Funktion 56h: ’Set Page Map and CALL’ 
Die Aufrufstruktur entspricht exakt der in Funktion 55h. Nur die 
Über DS:SI adressierte Tabelle hat einen erweiterten Aufbau: 


Offset Länge Inhalt 


0 4 CALL-FAR-Adresse 

4 1 Anzahl der einzublendenden Seiten vor dem CALL 
5 4 Zeiger auf Tabelle der Seiten (vergl. Funktion 55h) 
9 1 Anzahl der nach dem RETF einzublendenden Seiten 
Ah 4 Zeiger auf Tabelle der Seiten 


Interrupt 67h, Funktion 57h: ’Move or Exchange Memory’ 


Diese Funktion eröffnet die Möglichkeit, auch ohne (den Umweg 
über das) Fenster Daten mit dem EMS-Speicher auszutauschen. Es 
existieren zwei Unterfunktionen, die über AL ausgewählt werden: 


Unterfunktion 00h: ’Move Memory Block’ 


IN: 
AX:  5700h 
DS:SI: Zeiger auf Transferrecord 
OUT: - 
Unterfunktion 01h: ’Exchange Memory Block’ 
IN: 
AX: 5701h 
DS:SI: Zeiger auf Transferrecord 
OUT: - 


Anm.: Der Transfer-Record hat bei beiden Aufrufen die gleiche Struktur: 
Offset Länge Inhalt 


0 4 Anzahl der zu verschiebenden Bytes 

4 1 0/1: Quelle im DOS-/EMS-Bereich 

5 2 Handle des Quellblocks 

7 2 Offset des Quellblocks 

9 2 Quellseite (EMS) oder -segment (DOS) 
0Bh 1 0/1: Ziel im DOS-/EMS-Bereich 

och 2 Handle des Zielblocks 

0Eh 2 Offset des Zielblocks 

10h 2 Zielseite (EMS) oder -segment (DOS) 
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Wie auch beim XMS-Manager ist es verboten, daß sich Quell- und 
Zielbereich überlappen. Im Gegensatz zum XMS-Manager lassen 
sich jedoch auch Blöcke mit einer ungeraden Anzahl Bytes ver- 
schieben. 


Die UNIT _XMS_ 


Bei der UNIT _XMS_ wurde bewußt auf eine Implementierung der 
HMA-Funktionen des XMS-Managers verzichtet. Dies zum einen 
deshalb, weil der Bereich ’nur’ 64 KByte umfaßt, und zum zweiten, 
weil es vorteilhaft ist, diesen Bereich von DOS zu überlassen und 
die Anweisung ’DOS = High’ in die CONFIG.SYS aufnehmen. 


Der XMS-Treiber wird, wie schon erwähnt, nicht über einen Inter- 
rupt angesprochen, sondern über einen FAR CALL. Dies macht die 
Benutzung von Assembler unumgänglich, da ja die Register mit de- 
finierten Werten belegt sein müssen. Der Installationsstatus und die 
Einsprungadresse werden vorher über den Multiplexer-Interrupt 2Fh 
erfragt. 


Die Einsprungadresse 'XMSAddr’ und der Transferrecord ’Master’ 
wurden gezielt als globale Variablen ausgelegt. 


Der Transferrecord enthält die Steuerungsinformationen beim Da- 
tentransfer zwischen dem DOS-Bereich und dem Extended Memory. 
Der XMS-Treiber erwartet die Adresse eines korrekt ausgefüllten 
Feldes in den Registers DS:SI. 


Wenn der Transferrecord bereits (als globale Turbo-Variable) im Da- 
tensegment liegt, entfällt somit die Umprogrammierung des DS-Regi- 
sters. 

Der XMS-Manager gestattet ausschließlich den Transfer von ganzen 
Worten zwischen dem Extended Memory und DOS. Um eine unge- 
rade Anzahl Bytes transferieren zu können, muß somit geflickschu- 
stert werden. Eine Möglichkeit, wie dies durchgeführt werden kann, 
wird bei dem tXMSStream - Objekt gezeigt. Das Interface der UNIT 
_XMS_: 


[ARRRRRRTIRRIIRRTAITIITTIITRIERTTRIIRTIIIRSEIRIERREIER EIS RIERRTHEKREN 


Copyright (C) Christian Baumgarten, Hamburg 1993. 


einschließlich eines XMS-Streams. 


KRITIK KICK 


{ } 
{ } 
{ UNIT mit Routinen für den Zugriff auf das Extended Memory (XMS) } 
{ } 
{ } 
{ } 


11.4 Die Nutzung des Extended Memory 287 


UNIT _XMS_: 
{$F+) 
INTERFACE 
USES OBJECTS: 


type XMS_TranferRec=record 
size: longint; 
Source:word; 
SOffs:pointer; 
Dest:word; 
DOffs:pointer; 
end; 


const 
XMS_Error:byte=0: 


procedure GetXMSAddr ; 
function XMS_Installed:boolean; 
function XMS_Version:word; 
function XMS_MemSize:word; 
function XMS_MaxAvail :word; 
function XMS_ErrorMsg: string; 


{ Ext. Memory reservieren Blockgrösse in Kbytes=[1024 Bytes] } 
procedure XMS_Allocate(var handle:word:BlockSize:word); 


{ Ext. Memory freigeben } 
procedure XMS_DeAlloc(handle:word); 


{ Ext. Memory-Blockgrösse verändern } 
procedure XMS_SetBlock(handle:word;size:word); 


{ Block aus dem Dos-Bereich in das Ext. Memory verschieben } 

{ (Size in Bytes: Gerade Anzahl erforderlich) } 

procedure XMS_Push(handle:word;offs:longint:; var 
puffer;size:longint); 


{ Block aus dem Ext. Memory in den Dos-Bereich verschieben } 
{ (Size in Bytes: Gerade Anzahl erforderlich) 
procedure XMS_Pop(handle:word;offs:longint;var puffer;size:longint); 


{ Datenblock innerhalb des Extended Memory verschieben } 
procedure XMS_Move(S_Handle:word;S_Offs: longint; 
D_Handle:Word;D_Offs: longint;Size:longint); 


{ Block gegen Verschieben sperren und physikalische Addresse 
erhalten } 
function XMS_Lock(handle:word) :Tlongint; 
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{ Block für Verschieben freigeben } 
procedure XMS_UnLock(handle:word); 


{ Grösse des Handles und verbleibende Anzahl Handles erfragen } 
procedure XMS_GetHandleInfoChandle:word;var Size:word;var 
FreeHandles:byte); 


type 

{ TXMSStream } 

{ Stream, der im Extended Memory liegt, ohne EMS-Speicher zu } 
{ verbrauchen. Setzt voraus, daß freier XMS - Speicher } 
{ verfügbar ist. } 


pXMSStream=*tXMSStream; 
tXMSStream=object(tStream) 

Handle:word; 

KBytes:word; 

Size:longint; 

Position:Longint; 

constructor Init(MinKBytes ‚MaxkBytes:word); 


destructor done; virtual; 
function getpos:longint; virtual; 
function getsize:longint; virtual; 
procedure Read(var Buf; Count:word); virtual; 
procedure Seek(pos:longint); virtual; 
procedure Truncate; virtual; 
procedure Write(var Buf;count:word); virtual; 
end; 
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Endlich!!! Endlich besteht die Möglichkeit, ohne große Umstände die 
installierten drei, vier, acht oder gar 16 MByte ohne diese nerven- 
den Umwege über EMS, EMM, XMS u.s.w.u.s.f. direkt zu nutzen. Sie 
stehen unter BP 7.0 und DPMI direkt als Heap zur freien Verfügung 
- willig, mit allem Sinn oder Unsinn angefüllt zu werden, der dem 
Programmierer gerade einfällt. Wie viele Bücher und Tools sich mit 
der 640KB - Grenze des 80x86 unter DOS herumgeschlagen haben! 
(Und in der Tat: Selbst in diesem Buch wird in Kapitel 11 ein XMS- 
Stream für diejenigen vorgestellt, die sich auf Turbo Pascal 6.0 oder 
7.0 beschränken.) 


Doch, doch: Die Sache hat einen Haken. Dazu weiter unten mehr. 
Hier sollen erst einmal die Besonderheiten des PM demjenigen er- 
läutert werden, der noch keine Lust oder Gelegenheit hatte, sich 
damit zu befassen. Alle 80x86er - Prozessoren ab dem 80286 ken- 
nen neben dem hinlänglich bekannten 'Realmodus’ einen weiteren 
Betriebsmodus, den sogenannten ’Protected Mode’, der so heißt, 
wie er heißt, weil er so ist - geschützt. Das heißt, daß die Hardware 
des Prozessors selbst die intensive Überwachung des ordnungsge- 
mäßen Programmablaufs ermöglicht und unterstützt. Dies betrifft 
sowohl den Speicherzugriff als auch den Zugriff auf die Ports. Vor 
jedem Zugriff prüft der Prozessor, ob eine Berechtigung vorliegt 
und löst andernfalls einen Exception-Interrupt aus. Im Protected 
Mode löst somit der Versuch, einen 'hängenden’ (oder NIL-) Zeiger 
zu dereferenzieren, nicht gleich den Absturz des Computers aus, 
sondern schlimmstenfalls den sofortigen Abbruch der fehlerhaften 
Task. 


Bewerkstelligt wird dies dadurch, daß die Segmentregister nicht 
mehr Segmentwerte beinhalten, sondern sogenannte Selektoren - 
das sind Indices, die aus sogenannten 'Deskriptortabellen’ einen 
Eintrag auswählen. Der numerische Wert, den das Segmentregister 
beinhaltet, hat also mit der physikalischen Adresse des Segmentes 
im Arbeitsspeicher keinen direkten Zusammenhang mehr. D.h. daß 
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der Versuch, ein beliebiges Segmentregister mit einem ungültigen 
Selektor zu laden, eine Ausnahmebedingung auslöst. Im PM ist so- 
mit der Zugriff auf den BIOS-Datenbereich über die Anweisung 


Variable:=Mem[$40:$XX] 


unzulässig. 


Was aber ist ein gültiger Selektor? Nun, ein gültiger Selektor ist ei- 
ner, der erstens auf einen gültigen Deskriptor verweist, und zwei- 
tens auf einen Deskriptor, der die intendierte Operation erlaubt. 
Denn der Deskriptor legt nicht nur fest, wo das Segment im Arbeits- 
speicher tatsächlich liegt, sondern auch, wie lang das Segment ist 
(Segmentlimit) und welche Attribute das Segment hat, etwa, ob es 
sich um ein Codesegment handelt (read only) oder um ein Daten- 
segment (nicht ausführbar) oder ein Stacksegment (wächst nach un- 
ten). Daneben wird dem Segment noch eine Priveligierungsstufe 
zugeordnet, so daß sich nicht ohne weiteres jedes Programm frei 
durch den Arbeitsspeicher lesen kann, wie ihm gerade beliebt. Dies 
alles hört sich recht restriktiv an, ist aber in der Praxis nicht so ein- 
schränkend, wie es zunächst scheint. So stehen dem Pascal-Pro- 
grammierer zumindest in den ihm zugewiesenen Segmenten zusätz- 
liche Selektoren - sogenannte Aliassegmente - zur Verfügung, mit 
deren Hilfe es auf ausdrücklichen Wunsch möglich ist, sowohl in 
Codesegmente zu schreiben als auch ein Datensegment ’auszu- 
führen’. So erhält man mit der Anweisung 


P := Ptr(Seg(Irgendeineprozedur) + 
SelectorInc ‚Ofs(Irgendeineprozedur)): 


einen gültigen Zeiger, der ’Irgendeineprozedur’ als Datensegment 
zur Verfügung stellt. Allgemein gilt, daß die Addition der 
magischen’ Variablen SelectorInc den zu einem Selektor komple- 
mentären Selektor ergibt. Bei der Reservierung globalen Speichers 
von mehr als 64KB über GlobalAlloc liefert hingegen die Addition 
von SelectorInc einen gültigen Selektor auf das folgende Segment, 
wozu im Real-Mode ein Wert von 1000H nötig wäre. Werden also 
Speicherbereiche reserviert, die größer sind als ein Segment (64KB), 
so stellt DOS im Abstand von SeleciorInc so viele Selektoren zur 
Verfügung, wie erforderlich sind, um auf den gesamten Speicherbe- 
reich zuzugreifen. Werden 65 KB Speicher reserviert, so stellt das 
DPMI zwei Selektoren im ’Abstand’ von SelectorInc zur Verfügung. 
Der zweite Selektor zeigt auf ein Segment von 1KB Größe. Dieses 
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Verfahren gilt auch für Windows, das ebenfalls - auch im erweiter- 
ten 386er-Modus - 16Bit-Segmente verwendet. Man kann unter 
Windows allerdings auch 32-Bit-Segmente allozieren, wenn der Pro- 
zessor ein 80386 oder höher ist und die Datei "WINMEM32.DLI’ zur 
Verfügung steht. 


Zusätzlich zu den Aliasselektoren stehen Selektoren zur Verfügung, 
mit deren Hilfe auf die ’allgemeinen’ Segmente zugegriffen werden 
kann, wie etwa auf den BIOS-Datenbereich, den Videospeicher 
oder das ROM-BIOS. Für den Zugriff auf den BIOS-Datenbereich 
steht z.B. standardmäßig ein gültiger Selektor in der Variablen 
Seg0040 zur Verfügung, so daß die Anweisung 


Variable:=Mem[Seg0040:$XXXX] 


unproblematisch ist. Andere Standardselektoren sind SegB000, 
SegB800 und SegA000 für den freien Zugriff auf den Videospeicher. 
(Diese Selektoren existieren auch im Realmode und entsprechen 
dann den ‚nämlichen Segmentwerten SegA000 = A000H.) Weitere 
Selektoren (z.B. SegF000 oder SegC000) werden in der UNIT 
SYSINFO deklariert. 


All dies erklärt ganz gut, warum der freie Zugang zum PM solange 
auf sich warten ließ: Im PM steht das BIOS nicht mehr ohne weite- 
res zur Verfügung, da es nicht mit Selektoren umgehen kann. Und 
auch DOS existiert nur in Form des DPMI (DOS Protected Mode In- 
terface), und die Interruptvektortabelle hat nicht mehr ihre ur- 
sprüngliche Position oder Funktion. Die Interruptvektoren werden 
vielmehr über die Interrupt-Deskriptor-Tabelle (IDT) gefunden. Das 
bedeutet nicht, daß die BIOS-Funktionen gar nicht mehr nutzbar 
sind, sondern, daß der Prozessor zur Ausführung einer solchen 
Routine kurzzeitig in den Real- bzw. den Virtual-Mode umgeschal- 
tet werden muß. (Der Virtual Mode ist eine Spielart des Protected 
Mode, in der einem Programm eine scheinbare (virtuelle) Real- 
Mode-Umgebung ’vorgespiegelt’ wird. Das Programm EMM386.EXE 
schaltet z.B. in den Virtual Mode). Das DPMI stellt hierfür eine 
Reihe von Funktionen zur Verfügung, die in diesem Kapitel z.T nä- 
her vorgestellt werden sollen. Vorab: Fast alle Funktionen des DOS- 
Interrupts 21H sind unverändert nutzbar, ebenso die BIOS-Funktio- 
nen der Interrupts 10h/16h. Schwierigkeiten ergeben sich im we- 
sentlichen dann, wenn Funktionen aufgerufen werden sollen, die in 
den Registern gültige Real-Mode-Zeiger erwarten, da es ja wie ge- 
sagt im PM gar nicht möglich ist, Segmentregister mit Real-Mode- 
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Segmentwerten zu laden, andererseits die BIOS-Routinen etwa mit 
Selektoren nichts anzufangen wissen. Unter diese Aufrufe fallen die 
Funktionen des BIOS-Interrupt 13h für Disketten- und Plattenzugrif- 
fe ebenso wie die DOS-Interrupts 25h/26h und die IO-Ctrl-Funktio- 
nen 44xxh des DOS-Interrupts 21h. Wie dieses Problem lösbar ist, 
wird an dem Beispiel der Diskettenfunktionen in der UNIT 
DISK_OBJ vorgeführt (vgl. Kapitel 9). 


Selektoren und Deskriptoren 


Im Real Mode beinhalten die Segment-Register CS, DS, SS und ES 
(zzgl. FS und GS ab dem 80386) die physikalische Angabe der Pa- 
ragraphenadresse eines Segments. Dies ist im Protected Mode 
grundsätzlich anders. Hier beinhalten die Segmentregister Selekto- 
ren, die u.a. einen Index auf einen Eintrag in die LDT oder GDT 
beinhalten. Selektoren sind im Detail fogendermaßen aufgebaut: 


Bit 15 ...3 2 10 
Bedeutung [ Index ] TI E[RPL] 


Der Deskriptor-Index umfaßt somit 13 Bits, woraus folgt, daß in ei- 
ner Deskriptorentabelle maximal 8192 Selektoren definiert werden 
können. Da ein Deskriptor 8 Byte umfaßt, ist eine Deskriptortabelle 
also maximal 64 KB lang. Die beiden RPL-Bits bezeichnen die Prive- 
ligierungsebene des Selektors, und das TI-Bit wählt die Deskriptor- 
tabelle aus. Ein gesetztes TI-Bit bezeichnet die LDT, ein gelöschtes 
die GDT. Den Aufbau eines Deskriptors, d.h. eines Eintrags in einer 
Deskriptortabelle, zeigt Tabelle 12.1. 


; Bit 0..15 der Segmentlänge (des ’Limits’) 
Bit 0..23 der Selektorbasisadresse 
Deskriptorbyte 


Bit 0..3 entsprechen Bit 20..23 des Limits (ab 386) 
Bit 4..7 beschreiben das Segment 


Bit 24..31 der Basisadresse (ab 386) 
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Das Byte ab Offset 5 hat dabei folgenden Aufbau: 


Bit 76543210 
Bedeutung P [DPLJS LTWP]J A 
Code I1cR 
Daten OEM 


Das gesetzte P-Bit signalisiert die ’ Anwesenheit’ eines Segment im 
physikalischen Adressraum. Die DPL-Bits beschreiben die Privileg- 
ebene des Deskriptors. So dürfen etwa Programme mit niedrigerer 
Privilegebene (DPL höher) nicht auf Segmente einer höheren Privi- 
legierungsebene zugreifen. Das gelöschte S-Bit signalisiert einen Sy- 
stem-Deskriptor, ein gesetztes S-Bit ein Programm- oder Datenseg- 
ment. Im weiteren werden nur Nicht-System-Deskriptoren beschrieben. 


Die Typkennung des Deskriptors gibt an, welche Art von Segment 
der Deskriptor beschreibt. Bit drei, das höchste Bit der Typ-Ken- 
nung, gibt an, ob es sich um ein Code- oder ein Datensegment han- 
delt. Ein gesetztes Bit signalisiert ein Codesegment. In diesem Fall 
wird Bit Eins als Leseerlaubnisbit (R) gedeutet, während es bei 
einem Datensegmentdeskriptor die Schreiberlaubnis ein- und 
ausschaltet. 


Bei Datendeskriptoren signalisiert ein gelöschtes E-Bit eine Auf- 
wärtsrichtung, d.h. die Basisadresse ist die niedrigste Adresse, wäh- 
rend ein gesetztes Bit ein in Richtung niedrigerer Adressen wach- 
sendes Segment (Stacksegment) bezeichnet. Bei Codesegmentdes- 
kriptoren signalisiert dieses Bit, ob das Segment auch von niedriger 
priviligierten Programmen ausgeführt werden darf (Conforming Bit). 
Bit Null dient dabei als Zugriffsanzeige (Access-Bit). Es wird gesetzt, 
wenn auf das Segment lesend oder schreibend zugegriffen wird. 
Das Betriebssystem kann hierdurch eine bessere Kontrolle darüber 
erlangen, ob oder wie oft ein Segment tatsächlich genutzt wird. 


Byte 6 des Deskriptors hat folgende Belegung: 


Bit 7654327190 
Innaltt G 0 v [Limit ] 
Daten B 
Code D 


Das B-Bit (Datensegment) schaltet zwischen SP (B=0) und ESP 
(B=1) als Stackpointer um (ab 386). 

Das D-Bit (Codesegment) schaltet zwischen 16-Bit-Standardlänge für 
Operanden und Adressen (D=0) und 32-Bit-Standardlänge (D=1) 
um (ab 386). 
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Das G-Bit legt die ’Granularität’ fest. G = 0 steht für Byte-Granulari- 
tät. Damit kann das Segment maximal 1 MB lang sein (20 Bit für die 
Längenangabe). G = 1 steht für 4KB-Granularität. Die maximale Seg- 
mentlänge beträgt 4 GB. Auf die Basisadresse hat das G-Bit keine 
direkte Auswirkung. 


Man erkennt am Aufbau der Deskriptoren deutlich, wie die CPU im 
Protected Mode eine umfassende Ablaufkontrolle unterstützt. 


Das DOS-Protected-Mode-Interface (DPMI) 


Die Kommunikation mit dem DPMI läuft - wie könnte es bei DOS 
anders sein - über einen Interruptaufruf, und zwar Interrupt 31H. Im 
folgenden wird die Aufrufschnittstelle beschrieben. Für diese 
Schnittstelle wird folgende Registerstruktur (50 Byte lang) definiert: 


Type DWord = Longint; 


TCallStructure = RECORD 
EDI: DWord; 

ESI: DWord; 

EBP: DWord; 
Reserved: Dhord; 
EBX: DWord; 

EDX: DWord; 

ECX: DWord; 

EAX: DWord:; 
Flags: Word; 

ES: Word; 

DS: Word; 

FS: Word; 

6S: Word; 

IP: Word; 

CS: Word; 

SP: Word; 

SS: Word; 
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12.2.1 


Der DPMI-Interrupt 


Der DPMI-Interrupt wird immer mit der Funktionsnummer in AX 
aufgerufen. Das gesetzte Carryflag signalisiert im allgemeinen einen 
Fehler, das gelöschte eine erfolgreiche Ausführung. 


Im folgenden bedeuten: 


IDT : Interrupt Descriptor Table 
LDT : Local Descriptor Table 
GDT : Global Descriptor Table 
@Regs: Zeiger auf eine TCallStructure 
RMCB : Real Mode Call Back 


Interrupt 31H, Funktion 0000: ’Allocate Local Descriptors’ 


IN: 

AX: 0000H 

cx: Anzahl der zu reservierenden Deskriptoren 
OUT: 

AX: Base Selector 


Anm.: Zurückgegeben wird der erste Deskriptor. Alle weiteren er- 
hält man durch Addition von SelectorInc. Die Deskriptoren verwei- 
sen auf Datensegmente, die aber auf Nulladresse und -Längen ge- 
setzt sind. Um die Selektoren nutzen zu können, benutzt man zuerst 
sowohl ’Set Selector Base’ (0007) als auch ’Set Selector Limit’ (0008). 


Interrupt 31H, Funktion 0001H: ’Disalloc Local Descriptors’ 


IN: 
AX: 0001 
BX: Selektor 
Out: - 


Anm.: Die mit der Funktion 0 allozierten Selektoren müssen nach 
Gebrauch einzeln über diese Funktion freigegeben werden. (Es ste- 
hen nicht beliebig viele Selektoren zur Verfügung, so daß die nicht 
freigegebene Selektoren die Systemintegrität beeinträchtigen kön- 
nen.) 
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Interrupt 31h, Funktion 0003H: ’Get SelectorInc’ 


IN: 

AX: 0003h 
OUT: 

AX: SelectorInc 


(Diese Funktion wird in Borland-Pascal nicht benötigt, da der Wert 
von SelectorInc von Pascal zur Verfügung gestellt wird.) 


Interrupt 31h, Funktion 0006H: ’Get Selector Base Address’ 


IN: 
AX: 0006h 
BX: Selektor 
Out: 


CX:DX: Base Address (32 Bit entspr. Longint) 
Interrupt 31h, Funktion 0007H: ’Set Selector Base Address’ 


IN: 

AX: 0007h 

BX: Selektor 

CX:DX: 32 Bit - Adresse 
Out: - 
Interrupt 31h, Funktion 0008: ’Set Selector Limit’ 
IN: 

AX: 0008h 

BX: Selektor 

CX:DX: 32-Bit-Limitwert 
Out: - 


Anm.: Bei dem 16-Bit-DPMI, das mit Borland Pascal geliefert wird, 
läßt sich kein Limit von mehr als 64KB setzen. Wird ein Limit von 
68KB gefordert, so setzt die Funktion ein Limit von 4KB (= 68 mod 
64). Dies ist unter Windows im 386er-Enhanced-Mode anders: Es 
lassen sich Limits von mehr als 64 KB setzen. 
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Interrupt 31H, Funktion 0009: ’Set Selector Access Rights’ 


IN: 

AX: 0009h 

BX: Selektor (local) 

CL: Access Rights Byte 

CH: 80386 Extended Access Rights Byte 
OUT: - 
Interrupt 31h, Funktion 000Ah: ’Create Alias Selector’ 
IN: 

AX: 000Ah 

BX: Selektor 
Out: 

AX: Data Selektor 
Anm.: Die Funktion entspricht der Funktion AllocDStoCSAlias der 
UNIT WINAPI. 
Interrupt 31h Funktion 000Bh: ’Get Deskriptor of Selector’ 
IN: 

AX: 000Bh 

BX: Local Selector 

ES:DI: Zeiger auf 8-Byte-Deskriptorpuffer 
OUT: Deskriptor im Puffer 
Interrupt 31h, Funktion 000Ch: ’Set Deskriptor of Selector’ 
IN: 

AX: 000Ch 

BX: Local Selector 

ES:DI: Zeiger auf 8-Byte-Deskriptor 
OUT: - 
Interrupt 31h, Funktion 0100h: ’Allocate DOS Memory’ 
IN: 

AX: 0100h 

BX: Anzahl an Paragraphen 
OUT: 

AX: Real-Mode-Segmentwert 


DX: Selektor des Segments für Protected Mode 
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Carryflag gesetzt: AX = Fehlercode und BX = Maximal freier Spei- 
cherbereich in Paragraphen. 

Entspricht der WINAPI-Funktion GlobalDOSAlloc; diese Funktion 
wird benötigt, um Speicherbereich zu reservieren, auf den sowohl 
Real-Mode-Handler als auch das Protected-Mode-Programm zugrei- 
fen können. Der reservierte Speicherbereich liegt bei einem erfolg- 
reichen Aufruf in den unteren 1 MB des Speichers. 


Interrupt 31h, Funktion 0101h: ’Free DOS Memory’ 


IN: 

AX: 0101h 

DX: Selektor des Speicherbereichs 
OUT: - 


Anm.: Entspricht WINAPI-Funktion GlobalDOSFree. 
Interrupt 31h, Funktion 0102h: ’Realloc DOS Memory’ 


IN: 
AX: 0102h 
BX: Neue Größe in Paragraphen 
DX: Selektor des DOS-Bereichs 
OUT: 


CF =1: AX = Fehlercode 
BX = maximale Anzahl freier Paragraphen 
Die folgende Routine ist nötig, um die Adresse des Real-Mode-Inter- 


rupt-Handler für den Diskettenzugriff (Int 25h/26h) zu erfahren. Im 
Kapitel 9, ’Disketten und Platten’, erfahren Sie mehr hierzu. 


Interrupt 31h, Funktion 0200h: 
’Get Real-Mode-Interrupt-Vector’ 


IN: 

AX: 0200h 

BL: Nummer des Interrupts 
OUT: 


CX:DX: Adresse des Handlers 


Anm.: Im Protected Mode gibt es zwei Interrupt-Vektor-Tabellen: 
Die Real-Mode-Interrupt-Tabelle an ihrer alten Adresse und die IDT 
(Interrupt Descriptor Table), über die alle direkten Interrupts laufen. 
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Man kann aber mit Hilfe des DPMI auch Real-Mode-Interrupts auf- 
rufen und deren Vektoren lesen und setzen. 


Interrupt 31h, Funktion 0201h: 
‚Set Real-Mode-Interrupt-Vector’ 
IN: 
“AX: 0201h 
BL: Nr. des Interrupt 
CX:DX: Real-Mode-Adresse (Segment:Offset) 
OUT: - 


Anm.: In einer Protected-Mode-Anwendung werden Real-Mode-In- 
terrupts nicht direkt aufgerufen. Nur Real-Mode-Tasks, die von einer 
DPMI-Anwendung aus gestartet werden, werden hiervon direkt be- 
troffen. 


Interrupt 31h, Funktion 0202h: 
’Get Exception Handler Address’ 


IN: 

AX: 0202h 

BL: Exception Nummer 
OUT: 

CX:DX: Adresse des Exception-Handlers 
Interrupt 31h, Funktion 0203h: 
’Set Exception Handler Address’ 
IN: 

AX: 0203h 

BL: Exception Nummer 

CX:DX: Adresse des neuen Handlers 
OUT: - 


Interrupt 31h, Funktion 0204h: 
’Get Protected-Mode-Interrupt-Vector’ 


IN: 

AX: 0204h 

BL: Nummer des Interrupt 
OUT: 


CX:DX: Interrupt Vektor 
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Interrupt 31h, Funktion 0205h: 
’Set Protected-Mode-Interrupt-Vector’ 


IN: 

AX: 0205h 

BL: Nummer des Interrupt 

CX:DX: Adresse des neuen Interrupt-Handlers 
OUT: - 


Interrupt 31h, Funktion 0210h: 
’Get Protected-Mode-Exception-Handler’ 


IN: 

AX: 0210h 

BL: Exception Nummer 
OUT: 


CX:DX: Adresse des Handlers 


Interrupt 31h, Funktion 0211h: 
’Get Real-Mode-Exception-Handler’ 


IN: 

AX: 0211h 

BL: Nummer der Ausnahmebedingung 
OUT: 


CX:DX: Adresse des Handlers 
Interrupt 31h, Funktion 0212h: ’Set PM-Exception-Handler’ 


IN: 
AX: 0212h 
BL: Nr. der Ausnahmebedingung 
CX:DX: Handler-Adresse 

OUT: - 


Interrupt 31h, Funktion 0213h: 
’Set Real-Mode-Exception-Handler’ 


IN: 
AX: 0213h 
BL: Nr. der Ausnahmebedingung 
CX:DX: Adresse (Selektor:Offset) 
OUT: - 
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Interrupt 31h, Funktion 0300h: ’Simulate Real-Mode-Interrupt’ 


IN: 
AX: 0300h 
BL: Nummer des Interrupt 
BH: 0 
cX: Anzahl der Parameter, die vom Protected-Mode-Stack 


auf den Real-Mode-Stack kopiert werden sollen. 
ES:DI: Zeiger auf tCallStructure 
OUT: ES:DI: Zeiger auf bearbeitete tCallStructure 


Anm.: Die Werte in CS:IP der tCallstructure werden ignoriert. Man 
sollte SS:SP der tCallstructure auf Null setzen, da dann ein Real- 
Mode-Stack vom DPMI-Server installiert wird. Das Flagwort der 
tCallstructure muß mit einem gültigen Wert belegt sein, da zufällige 
Werte unerwartete Folgen haben können (z.B. wenn das Trap-Flag 
gesetzt ist). Soll die Realmode-Routine auf DOS-Speicher zugreifen, 
so müssen die entsprechenden Segment-Felder der tCallStructure 
mit den Segmentwerten belegt werden und nicht etwa mit Selekto- 
ren. Ansonsten hat die Funktion große Ähnlichkeit mit der Turbo- 
Pascal-Routine Intr(No:byte;var Regs:Registers). 


Interrupt 31h, Funktion 0301h: ’Call Real-Mode Procedure’ 


IN: 
AX: 0301h 
BH: 0 
cx: Anzahl der Parameter (wie oben) 
ES:DI: Zeiger auf tCallstructure 
OUT: 
ES:DI: Zeiger auf veränderte tCallstructure 


Anm.: Die aufzurufende Real-Mode-Routine muß mit einem RETF 
abschließen. Die Adresse der Routine wird über die tCallStructure in 
CS:IP übergeben. Diese Funktion wird z.B. in der UNIT DISK_OBJ 
benutzt, um die Real-Mode-Handler der Disketteninterrupts 25h/26h 
aufzurufen, da diese mit einem RETF abschließen. 


Interrupt 31h, Funktion 0302h: ’Call Real-Mode-Interrupt- 
Handler’ 


Wie Funktion 0301h, nur daß die Routine mit einem IRET abschlie- 
ßen muß. 
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Interrupt 31h, Funktion 0303h: ’Install Real-Mode-Callback’ 
IN: 

AX: 0303h 

DS:SI: Zeiger auf Protected Mode Routine 

ES:DI: Zeiger auf tCallStructure 
OUT: 

CX:DX: Zeiger auf Real-Mode-CallBack 
Anm.: Es gibt (Real-Mode-) DOS-Treiber, die die Möglichkeit bieten, 
eine Service-Routine zu installieren, wie etwa der Maustreiber. 
Diese Treiber erwarten, daß ihnen eine Real-Mode-Funktions-Adres- 
se übergeben wird. Eine solche Adresse steht in einem Protected- 
Mode-Programm aber erstens nicht zur Verfügung und zweitens 
ließe sie sich nicht ohne weiteres von einem Real-Mode-Treiber auf- 
rufen, da im Protected Mode die Segmentregister nur gültige Selek- 
toren enthalten dürfen. Der DPMI-Server stellt deshalb (maximal 16) 
Real-Mode-Callbacks zur Verfügung. In diesem Fall wird eine Real- 
Mode-Routine des DPMI-Servers aufgerufen, die sämtliche Real- 
Mode-Registerwerte in eine tCallStructure kopiert, die Register mit 
gültigen Selektoren initialisiert und dann die Kontrolle an das Pro- 
tected-Mode-Programm übergibt. Die Protected-Mode-Routine wird 
mit bestimmten Registerwerten aufgerufen: 


DS:SI = Zeiger auf Real-Mode-Stack 
ES:DI = Zeiger auf tCallStructure 


Da das DPMI nur über 16 Call-Back-Adressen verfügt, so muß der 
Callback freigegeben werden, sobald er nicht mehr benötig wird. 


Interrupt 31h, Funktion 0304h: ’Free Real-Mode-Callback’ 


IN: 

AX: 0304h 

CX:DX: Adresse des Callbacks 
OUT: - 


(vergl. Funktion 303h) 


Interrupt 31h, Funktion 0400h: ’Get Version Number’ 
IN: 
AX: 0400h 
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OUT: 
AH:AL: Hauptversionsnummer:Unterversionsnummer 
BX: Flagwortt: 
Bit 0 = 1: 32Bit-DPMI-Server 
Bit 1 = 1: V86-Mode wird für Interrupt-Routinen 
Bit 2 = 1: Unterstützung des virtuellen Speichers 
CL: CPU: 2 = 286, 3 = 386, 4 = 486 
Interrupt 31h, Funktion 0500h: ’Get Free Memory Info’ 
IN: 
AX: 0500h 
ES:DI: Zeiger auf 48-Byte-Puffer für Informationen 
OUT: Informationen im Puffer. 


Der 48-Byte-Puffer hat folgende Struktur: 


tFreeMemInfo = Record 
MaxAvail :Longint; 
MaxUnlockedPages :Longint; 
MaxLockedPages :Longint; 
NoOfPages :Longint; 
NoOfUnlockedPages:Longint; 
NoOfFreePages :Longint: 
NoOfPhysicalPages:Longint; 
NoOfFreePhysPages:Longint; 
NoOfSwapFilePages:Longint; 
Reserved:Array[1..3] of Longint; { Mit FFh gefüllt } 

end; 


Interrupt 31h, Funktion 0501h: ’Global Allocate Memory’ 


IN: 

AX: 0501h 

BX:CX:  Größenangabe 
OUT: 


BX:CX: Lineare (physikalische) Adresse 
SI:DI: Handle des Speicherblocks 


Anm.: Da die UNIT WINAPI hier genügend Funktionen zur Verfü- 
gung stellt, sollte man auf jene zurückgreifen. 
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Interrupt 31h, Funktion 0502h: ’Global Free Memory’ 


IN: 
AX: 0502h 
SI:DI: Handle des Blocks 
OUT: - 
Interrupt 31h, Funktion 0503h: ’Relocate Allocated Memory’ 
IN: 
AX: 0503h 


BX:DX: Neue Größe in Bytes 

SI:DI: Handle des Speicherblocks 
OUT: 

BX:CX: Neue linare Adresse 

SI:DI: Neues Handle 


Interrupt 31h, Funktion 050Ah: 
’Get Memory Block Information’ 


IN: 

AX: 050Ah 

SI:DI: Handle des Speicherblocks 
OUT: 


BX:CX: Adresse des Blocks 
SI:DI: Größe des Blocks in Bytes 


Interrupt 31h, Funktion 050Bh: ’Get Memory Information’ 


IN: 

AX: 050Bh 

ES:DI: Zeiger auf 128 Byte Puffer 
OUT: Daten im Puffer 


Anm.: Der Puffer hat folgendes Format: 


tMemoryInfo = Record 
DPMI_PhysMemSi ze : Longint; 
DPMI_VirtMemSize : Longint; 
DPMI_VirtFreeMdem : Longint; 
Machine_VirtAllocdem : Longint: 
Machine_VirtFreeMem : Longint; 
Client_VirtAllocMem : Longint; 
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Client_VirtFreeMem : Longint: 
Client_LockedMem : Longint: 
Client_MaxLockMem : Longint: 
Client_MaxLinearMem : Longint: 
MaxFreeBlockSize : Longint: 
MinAllocationSize : Longint; 
AllocationAlignment : Longint; 


Reserved : Array[1..19] of Longint: 
end; 
Interrupt 31h, Funktion 0600h: ’Lock Memory Region’ 
IN: 
AX: 0600h 


BX:DX: Lineare Basisadresse 

SI:DI: Länge der Region in Bytes 
OUT: - 
Anm.: Da die Seitenlänge (im Seitenmodus des 386) des Virtual 
Memory 4KB beträgt, wird in diesem Modus auf volle Seiten aufge- 
rundet. Wird diese Funktion für den gleichen Speicherblock mehr- 
fach aufgerufen, so muß die Freigabe ebensooft erfolgen! 
Interrupt 31h, Funktion 0601h: ’Unlock Memory Region’ 
IN: 

AX: 0601h 

BX:CX: Lineare Basisadresse 

SI:DI: Länge der Region in Bytes 


OUT: - 
Interrupt 31h, Funktion 0702h: ’Mark Pages for Swapping’ 
IN: 

AX: 0702h 


BX:CX: Lineare Startadresse 

SI:DI: Länge des Bereichs 
Out: - 
Anm.: Nur für DPMI, das die virtuelle Speicherverwaltung unter- 
stützt. Dem DPMI wird hiermit mitgeteilt, daß der Speicherbereich 
ausgelagert werden kann. Die Funktion veranlaßt das DPMI jedoch 
nicht unbedingt, dies auch zu tun. Betrifft nur jene Speicherseiten, 
die ganz in dem genannten Bereich liegen. 
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Interrupt 31h, Funktion 0703h: ’Discard Pages’ 
IN: 

AX: 0703h 

BX:CX: Lineare Startadresse 

SI:DI: Länge des Bereichs 
OUT: - 


Anm.: Im Gegensatz zu Funktion 0702h veranlaßt ein DPMI, das vir- 
tuelle Speicherverwaltung unterstützt, den Bereich zu verwerfen. Es 
werden immer ganze Seiten verworfen und zwar nur solche, die 
ganz in dem Bereich liegen. 


Interrupt 31h, Funktion 0900h: ’Disable Interrupts’ 


IN: 
AX: 0900h 
OUT: 
AL: Bisheriger Status: 
0: Gesperrt 
1: Erlaubt 


Anm.: Im Protected Mode lassen sich Interrupts nicht von jeder Pri- 
vilegierungsstufe mit dem CPU-Befehl CLI aus sperren, zumindest 
nicht für jede Task. Nur das Betriebssystem (d.h. das DPMI) hat die- 
se Befugnis. 

Interrupt 31h, Funktion 0901: ’Enable Interrupts’ 

(wie bei Funktion 0900h) 


Interrupt 31h, Funktion 0902: ’Get Interrupt State’ 
(wie bei Funktion 0900h) 


Funktionen von 32-Bit-DPMis 


Die folgenden Funktionen werden nur auf 386er/i486er-Prozessoren 
unter einem 32-Bit-Server unterstützt. Das mit Borland-Pascal 7.0 ge- 
lieferte DPMI unterstützt diese Funktionen nicht. Sie stehen jedoch 
im erweiterten 386er-Modus unter Windows zur Verfügung: 
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Interrupt 31h, Funktion 0504h: ’Global Alloc 32-Bit-Block’ 


IN: 
AX: 0504h 
EBX: Seitenausgerichtete 32-Bit-Adresse oder Null 
ECX: Blockgröße in Bytes 
EDX: 0/1. 
OUT: 
EBX: Lineare Adresse des Speicherblocks 
ESI: Handle des Speicherblocks 


(Nur 32-Bit-DPMI oder Windows) 
Interrupt 31h, Funktion 0505h: ’Reallocate 32-Bit-Memory- 


Block’ 

IN: 
AX: 0505h 
ECX: Neue Blockgröße 
EDX: Flags: 
ESI: Blockhandle 
ES:EBX = 
EDI = 

OUT: 
EBX: Neue lineare Adresse 
ESI: Neues Handle 


(Nur 32-Bit DPMI oder Windows) 
Interrupt 31h, Funktion 0506h: ’Get Page Attributes’ 


IN: 

AX: 0506h 

EBX: Basisadresse der Seite im Speicherblock 

ECX: Anzahl der Seiten 

ESI: Handle des Blocks 

ES:EDX: Zeiger auf Datenpuffer für jeweils ein Wort/Seite 
OUT: 


Daten im Puffer; jedes Wort beschreibt eine Seite (4KB), wobei 
folgende Belegung gilt: 
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Bit 6: Gesetzt, wenn Seite modifiziert wurde 
Bit 5: Gesetzt, wenn auf die Seite zugegriffen wurde 
Bit 4: Gesetzt, wenn Bit 5/6 gültig sind 
Bit 3: Gesetzt, wenn die Seite nur gelesen werden darf 
Bit 0..2: 0: Uncommitted Page 
1: Committed Page 
2: Mapped Page 
(Nur 32-Bit-DPMI oder Windows) 


Interrupt 31h, Funktion 0507h: ’Set Page Attributes’ 
IN: wie Funktion 0506h. 
OUT: 

CF = 1: Fehler und ECX = Anzahl der gesetzten Attribute 
( Nur 32-Bit-DPMI bzw. Windows) 


Interrupt 31h, Funktion 0604h:’Get Page Size’ 
IN: 
AX: 0604h 
OUT: 
BX:CX:  Seitengröße in Bytes 
(Nur 32-Bit-DPMI oder 386-Windows) 


Ein Beispiel für die Nutzung der DPMI-Funktionen 


Ein Beispiel für die Möglichkeiten, die die DPMI-Funktionen bieten, 
ist das Durchsuchen des DOS-MCBs nach einem bestimmten Eintrag 
im Protected Mode. In Kapitel 11 wurde bereits gezeigt, wie sich 
die Kette der Memory-Control-Blöcke im Real Mode durchsuchen 
läßt. Die Schwierigkeit für den Protected Mode besteht darin, daß 
auf zahlreiche (nicht unmittelbar als Selektor verfügbare) Segmente 
zugegriffen werden muß (weshalb diese Aufgabe hier auch als Bei- 
spiel verwendet wird). Um diesen Zugriff zu ermöglichen, werden 
die DPMI-Funktionen AllocSelector, SetSelectorBase, SetSelectorLimit 
und FreeSelector benötigt. Hierbei werden folgende - in der UNIT 
_DPMI deklarierte - Funktionen genutzt: 


- Die Prozedur SetPtr setzt Basis und Limit des (gültigen!) Selektors 
eines Protected-Mode-Zeigers auf die Werte eines Real-Mode- 
Zeigers: 


12.2 Das DOS-Protected-Mode-Interface (DPMD 309 


Procedure SetPtr(var PMPtr:pointer;RMPtr:Pointer); 

var 1:longint; 

begin 
1:=PtrRec(RMPtr).segm; 
1:=1 shl 4; 
SetSelectorBase(PtrRec(PMPtr).segm,1); 
SetSelectorLimit(PtrRec(PMPtr).segm,$FFFO); 
PtrRec(PMPtr) .Offs:=PtrRec(RMPtr).offs: 

end; 


- Die Funktion AllocPtr stellt den zu einem Real-Mode-Zeiger 
komplementären Protected-Mode-Zeiger zur Verfügung: 


Function AllocPtr(RM_Ptr:pointer):pointer; 
var S,0:word; 
1:longint; 
begin 
AllocPtr:=NIL; 
s:=allocselector (0); 
if s<>0 then 
begin 
:=PtrRec(RM_ptr).segm; 
1:=1 sh] 4; 
if setselectorbase(s,1)=0 then 
begin 
freeselector(s); 
exit; 
end; 
setselectorlimit(s,$FFFO); 
AllocPtr:=ptr(s,ptrrec(rm_ptr).offs): 
end; 
end; 


- Die Prozedur FreePtr gibt einen mit AllocPtr reservierten Selektor 
(oder Zeiger) wieder frei: 


Procedure FreePtr(var P:Pointer); 
begin 
FreeSelector(PtrRec(P).segm); 
P:=nil; 
end; 
Schließlich ermittelt die Prozedur ForEachMCB die Paragraphen- 
adresse des ersten MCB, durchsucht die Kette der MCBs und ruft für 
jeden gefundenen Speicherkontrollblock die Prozedur What auf. 
Die Prozedur ermöglicht es damit DPMI-Programmen, die DOS- 
Speicherblöcke nach Real-Mode-Anwendungen zu durchsuchen. 


310 12 Protected Mode und DPMI 


(Der Quelltext ist auf der Beilagediskette und Teil UNIT SYSINFO 
bzw. UNIT _DPMD. 


procedure ForEachMCB(What:MCBProc); 
var MCB:Array[0..1] of tMCB; 
pm,pr:Pointer; 
regs:tCal1Structure; 
begin 
preparetCal1Struct(regs); 
with Regs do 
begin 
_eax:=$5200:; 
if _flags and 1=1 then exit: 
callRealMIntr($21,Regs); 
pm:=AllocPtr(Ptr(_es-1,_ebx+12)); 
end; 
pr:=pointer(pm*); 
if (pm<>nil) then 
Repeat 
SetPtr(pm,pr); 
move(pm“ ‚MCB,sizeof(MCB)); 
if mcb[0]J.typ in mcbtypes then 
begin 
What(@MCBLO]); 
if (mcb[0].pspseg=8) and (mcb[1].typ in MCBTypes) 
then inc(ptrrec(pr).s) 
else inc(ptrRec(pr).s,mcb[0].size+l); 
end else break; 
until mcb[0].typ='Z'; 
FreePtr(pm); 
end; 


12.3 Variablen und Puffer von mehr als 64 KB 


Wer unter DOS programmiert, hat sich meist mehr oder weniger da- 
mit abgefunden, daß homogene Datenbereiche von mehr als 64 KB 
nicht verfügbar sind. Mit Borland-Pascal-Protected-Mode-Program- 
mierung scheint dieser unbefriedigende Zustand überwunden zu 
sein. Der Schein trügt! Zwar läßt sich (fast) beliebig viel Speicher 
mit den Funktionen GlobalAlloc / GlobalAllocPtr reservieren, aber 
da sich das DPMI - Interface, das mit Borland Pascal 7.0 ausgeliefert 
wird, auf 16-Bit-Segmente beschränkt, lassen sich in einem DPMI- 
Programm selbst auf einem 80386 oder i486 nicht mehr als 64KB 
auf einmal adressieren, da das Offset-Register eben nur 16 Bit breit 
ist. Soll auf den Bereich über 64KB zugegriffen werden, so muß der 
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Selektor um SelectorInc erhöht werden, so daß der Offset unter 64K 
bleibt. Dies war auch unter DOS schon möglich (nur nicht mit der 
gleichen Speichermenge). 

Will man also z.B. aus einem 80 KB großen Datenbereich 40KB ab 
Offset 40K in einen 100KB großen Datenbereich ab Offset 60K ko- 
pieren, so steht einem keine einfache Funktion zur Verfügung, die 
dies problemlos bewerkstelligt, sondern man ist dazu gezwungen, 
Adress-Arithmetik zu betreiben, d.h. erst 4KB (64K-60K) zu transfe- 
rieren, dann 20KB (64K-4K-40K), und dann noch einmal 16KB. (An 
dieser Tatsache würde allerdings ein 32-Bit-DPMI auch dann nichts 
ändern, wenn ein Programm auch noch auf 80286-Prozessoren lauf- 
fähig sein soll.) Damit die Freude über den Durchbruch durch die 
640-KB-Begrenzung keinen allzugroßen Dämpfer durch die 64-KB- 
Grenze erhält, werde ich eine UNIT VMEM32 vorstellen, die Routi- 
nen enthält, die die 64-KByte-Segmente scheinbar zu 32-Bit-Seg- 
menten zusammensetzen, zumindest für alle Prozeduren, die ange- 
boten werden oder aus diesen ableitbar sind. Die Unit läßt sich 
auch im Real-Mode anwenden. Die UNIT HEAP stellt Routinen zur 
Verfügung, die es auch im Real Mode ermöglichen, mehr als 64 KB 
am Stück zu reservieren und freizugeben. Das ’Herzstück’ der UNIT 
VMEM32 bilden Assemblerroutinen, die die String-Befehle des 
80x86 durch Routinen ersetzen, die mit mehr als 64 KB umgehen 
können, indem sie zum rechten Zeitpunkt die Segmentregister um 
den Wert von SelectorInc erhöhen oder erniedrigen. Man beachte, 
daß die ’Move’- und ’Fill'-Prozeduren (im Gegensatz zu der Turbo- 
Pascal-Routine Move bzw. FillChar) die Daten wortweise transferie- 
ren, d.h. bei großen Datenmengen praktisch doppelt so schnell. Die 
Standardprozedur FillChar wurde durch mehrere Routinen ersetzt: 
FillByte, FillWord und FillStr, die einen Datenbereich auf sehr spe- 
zialisierte Weise zu füllen vermögen. Die String-Routine ’Pos’ wird 
durch FindBuf / FindStr ersetzt, die beliebig lange Datenbereiche 
nach ebenfalls beliebig langen Bytefolgen durchsuchen können. 
Um Datenbereiche zu vergleichen, stehen die Funktionen EqualAt / 
UnEqualAt zur Verfügung. Man muß sich allerdings bei der Pro- 
grammierung im Protected Mode immer darüber im klaren sein, daß 
zwei Zeiger, denen jeweils separat über GlobalAllocPtr (UNIT 
WINAPI) Speicherplatz zugewiesen wurde, nicht vergleichbar sind. 
Man kann unmöglich den Offset des einen Zeigers relativ zum an- 
deren berechnen, es sei denn, beide zeigen auf einen Datenbereich, 
da der Selektor des Zeigers nichts über seine tatsächliche physikali- 
sche Adresse verrät. Diese läßt sich allein dem Deskriptor des Zei- 
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gers entnehmen. Wird nun aber über GlobalAlloc / GlobalAllocPtr 
ein Datenbereich von mehr als 64KB reserviert, so stellt der Run- 
timemanager so viele Selektoren zur Verfügung, wie nötig sind, um 
auf den gesamten Datenbereich zuzugreifen. Deshalb werden für 
den Zugriff auf einen großen Datenbereich stets mehrere Zeiger be- 
nötigt. Diese Zeiger lassen sich vergleichen. Stellt man etwa fest, 
daß zwischen zwei solchen Zeigern die Relationen PtrRec(pl).Seg 
+ 2 * SelectorInc = PtrRec(p2).Seg und PtrRec(p1).Ofs + 10K = 
PtrRec(p2).Ofs bestehen, so ist die ’Differenz’ der Zeiger gleich 2 * 
Segmentlänge +10K = 138K. Nur auf diese Art von Adressarithmetik 
sind die Funktionen SubPtr / IncPtr / DecPtr der UNIT VMEM32 im 
Protected Mode anwendbar. Für den Real Mode gilt Äquivalentes: 
Der Wert von SelectorInc beträgt im Real Mode 1000h. Nur Zeiger, 
deren Segmentwerte sich um ein Vielfaches hiervon unterscheiden, 
können mit den Routinen, so wie sie sind, sinnvoll verglichen wer- 
den. ( Der Turbo Pascal Heapmanager stellt hingegen immer Zeiger 
zur Verfügung, die auf den minimalen Offset (0..15) normiert sind.) 


Die Routinen der UNIT VMEM32 sind so gestaltet, daß sie sich auch 
ohne weiteres in einer DLL unterbringen lassen. Wer mag, kann den 
Quellcode entsprechend umschreiben. 


UNIT VMEM32; 
{ Copyright Christian Baumgarten, Hamburg 1993 } 
INTERFACE 


Function SubPtr(p_hi,p_lo:pointer):Longint; 

{ Berechnet den Offsetwert, den p_hi relativ zu p_lo hat. Nur } 

{ auf Zeiger anwendbar, die auf den gleichen Datenbereich } 

{ zeigen, d.h. deren Segment/Selektorwerte sich um ein vielfaches } 
{ von SelectorInc unterscheiden. } 


Function IncPtr(p:pointer;Offset:LongInt):pointer; 
{ Gibt einen Zeiger zurück, der um Offset erhöht ist. } 


Function DecPtr(p:pointer;offset:Longint):pointer; 


Function SameArea(pl,p2:pointer):boolean; 

{ Prüft, ob zwei Zeiger 'kompatibel' sind, d.h. ob die } 
{ Selektoren beider Zeiger sich um ein Vielfaches von } 
{ SelectorInc unterscheiden } 


Function EqualAt(pl,p2:pointer:Count:Longint):pointer; 

{ Vergleicht zwei Datenbereiche und liefert Zeiger auf das 
{ erste Byte einer Übereinstimmung relativ zu pl. 

{ Wird innerhalb der vonCount gesetzten Grenzen keinerlei 
{ Übereinstimmung gefunden so ist der Rückgabewert NIL. 


wu nun 
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Function UnEqualAt(pl,p2:pointer;Count:Longint):pointer; 


{ Vergleicht zwei Datenbereiche und liefert Zeiger auf das } 
{ erste Byte einer Differenz relativ zu pl. } 
{ Wird innerhalb der durch Count gesetzten Grenzen keinerlei } 
{ Differenz gefunden, so ist der Rückgabewert NIL, d.h. die } 
{ Datenbereiche sind über Count Bytes identisch. } 
Procedure _MoveUp(pl1,p2:pointer;Count:Longint): 

{ Bewegt Count Bytes von p1* nach p2*. Überschneiden sich die } 
{ Bereiche, so muß die Adresse von pl kleiner als die von p2 } 
{ sein, damit keine Überschneidungen auftreten. } 
Procedure _MoveDn(pl,p2:pointer:Count:Longint): 

{ Bewegt Count Bytes von pl“ nach p2*. Überschneiden sich die } 
{ Bereiche, so muß die Adresse von pl grösser als die von p2 } 
{ sein, damit keine Überschneidungen auftreten. } 


Function FindByte(what:byte;where:pointer;Len:Longint):pointer; 
{ Liefert Zeiger auf das erste Byte im Datenbereich mit dem Wert } 
{ What. Ist kein solches Byte vorhanden, so ist das Ergebnis NIL } 


Procedure FillByte(what:byte:;where:pointer;Len:Longint); 
{ Füllt einen Datenbereich der Länge Len mit dem Byte What. } 


Procedure FillWord(what:word;where:pointer;Len:Longint): 
{ Füllt einen Datenbereich der Länge Len mit dem Wort What. } 


Function FindBuf(buf:pointer;buflen:Longint;Where:pointer; 
Len:Longint): Pointer; 
{ Durchsucht den Datenbereich Where der Länge Len nach Buf und 


liefert 
im Erfolgsfall einen Zeiger relativ zu where auf die 
gefundene Sequenz zurück, ansonsten NIL. } 


Function FindStr(S:string;Where:pointer:;Len:Longint):Pointer; 
{ Entspricht FindBuf, nur für Strings. } 


Procedure InsertBuf(source,dest:pointer ;count,pos,dmaxlen:longint; 
var dlen:Longint); 

{ Von Source Count Bytes an die Position Pos in Dest transferieren, 
wobei dLen Bytes in dest belegt sind und maximal dmaxlen Bytes in 
Dest zur Verfügung stehen. } 


Procedure DeleteBuf(p:pointer;pos.count:longint;var dlen:longint): 
{ Im Datenbereich p count Bytes ab Position pos löschen und } 
{ nachfolgende Daten nach vorn schieben. } 
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IMPLEMENTATION 


Function SameArea(pl,p2:pointer):boolean; assembler; 
asm 
mov ax,pl.word[2] 
mov bx,p2.word[2] 
cmp ax,bx 
je 0@2 
ja ee 
xchg ax,bx 
@@1: sub ax,bx 
div selectorInc 


or dx,dx 
je @@2 
xor al,al 
jmp @@3 
@@2: mov al,l 
@@3: 
end; 


Function IncPtr(p:pointer;Offset:LongInt):pointer; assembler; 
asm 
les bx,p 
add bx,&offset.word[0] 
mov ax,&offset.word[2] 
mul selectorinc 
mov dx,es 
add dx,ax 
mov ax,bx 
end; 


function SubPtr(p_hi,p_lo:pointer):Longint; assembler; 
asm 

les bx,p_hi 

mov ax,es 

sub ax,p_lo.word[2] 

je eel 

xor dx,dx 

div selectorinc 
@@]: 

mov dx,ax 

sub bx,p_lo.word[0] 

mov ax,bx 

end; 


Function DecPtr(p:pointer;offset:Longint):pointer; assembler; 
asm 
les bx,p 
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mov ax,&offset.word[2] 
sub bx,&offset.word[0] 
adc ax,0 
mul selectorinc 
mov dx,es 
sub dx,ax 
mov ax,bx 
end; 


{ Input: CX = Count für Stringoperation 
{ SI/DI = Offset auf Strings 
{ Falls der Offset zu hoch ist, als daß sauber CX-mal die Operation 
{ ausgeführt werden kann, so wird CX entsprechend vermindert. Der 
{ Rest des Zählers steht dann in DX. 
procedure check_cx_up; near; assembler; 
asm 
xor dx,dx 
mov aX,CcX 
add ax,di 
jnc @@1 
mov dx, ax 
@@]: mov ax,cx 
add ax,si 
jnc @@2 
cmp ax,dx 
jbe @@2 
mov dx,ax 
@@2: sub cx,dx 
end; 


{ Input: CX = Count für Stringoperation 
{ SI/DI = Offset auf Strings 
{ Falls der Offset zu hoch ist, als daß sauber CX-mal die Operation 
{ ausgeführt werden kann, so wird CX entsprechend vermindert. Der 
{ Rest des Zählers steht dann in DX. 
procedure check_cx_dn; near; assembler; 
asm 
xor dx,dx 
cmp di,cx 
jae @@1 
mov dx,cx 
sub dx,di 
@@1: cmp si,cx 
jae @@2 
mov aX,Cx 
sub ax,si 
cmp ax,dx 
Jjbe @@2 


316 12 Protected Mode und DPMI 


mov dx,ax 
@@2: sub cx,dx 
end; 


{ Input DS:SI,ES:DI = Pointer, die gecheckt werden: Ist SI } 
{ oder DI gleich Null, so wird zu DS bzw. ES SelectorInc } 
{ addiert. Der Wert von SelectorInc muß in einer lokalen } 
{ Variablen an der Adresse [BP-2] zur Verfügung gestellt } 
{ werden !! } 
procedure check_si_di_up: near: assembler; 
asm 
or di.,di 
jne @@1 
mov ax,es 
add ax,[bp-2] 
mov &S,aX 
@@1: or si,si 
jne @@2 
mov ax,ds 
add ax,[bp-2] 
mov ds, ax 
@@2:ret 
end; 


{ Input DS:SI,ES:DI = Pointer, die gecheckt werden: Ist SI } 
{ oder DI gleich Null, so wird von DS bzw. ES SelectorInc } 
{ subtrahiert. Der Wert von SelectorInc muß in einer lokalen } 
{ Variablen an der Adresse [BP-2] zur Verfügung gestellt } 
{ werden !! } 
procedure check_si_di_dn; near; assembler; 
asm 

cmp di,$FFFF 

jne @@1 

mov ax,es 

sub ax,[bp-2] 

mov eS,ax 
@@1: cmp si,$FFFF 

jne @@2 

mov ax,ds 

sub ax,[bp-2] 

mov ds,ax 
@@2:ret 


{ INPUT  BX:CX = Count } 
{ DS:SI = Source } 
{ 
{ 


ES:DI = Dest } 
[BP-2] = SelectorInc } 


12.3 Variablen und Puffer von mehr als 64 KB 317 


Procedure repne_cmpsb; near; assembler; 
asm 
@@0: call check_cx_up 
repne cmpsb 
pushf 
call check_si_di_up 
add cx,dx 
popf 
pushf 
je 6&@e 
jexz @65 
popf 
jmp @@O 
@85: or bx,bx 
je @@e 
popf 
cmpsb 
pushf 
dec bx 
mov Cx,$FFFF 
call check_si_di_up 
popf 
je e@&@el 
jmp @@O0 
@@e: popf 
@@el: 
end; 


{ INPUT BX:CX = Count } 
{ DS:SI = Source } 
{ ES:DI = Dest } 
{ [BP-2] = SelectorInc } 
Procedure repe_cmpsb; near; assembler; 
asm 
@@0: call check_cx_up 
repe cmpsb 
pushf 
call check_si_di_up 
add cx,dx 
popf 
pushf 
jne @@e 
jexz @65 
popf 
jmp @@0 
@@5: or bx,bx 
je @@e 
popf 
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cmpsb 
pushf 
dec bx 
mov Cx,$FFFF 
call check_si_di_up 
popf 
jne @@el 
jmp @@0 

@@e: popf 

@@el: 

end; 


INPUT BX:CX = Count } 
DS:SI = Source } 
ES:DI = Dest |} 
[BP-2] = SelectorInc } 
rocedure rep_movsb_up; near; assembler; 
asm 
@@0: call check_cx_up 
shr cx,l 
jnc @@1 
movsb 
@@]: rep movsw 
call check_si_di_up 
add cx,dx 
jexz @@5 
jmp «a0 
@@85: or bx,bx 
je  @@e 
movsb 
dec bx 
mov CX,$FFFF 
call check_si_di_up 


ag yn 


jmp @@O 
@@e: 
end: 
{ INPUT BX:CX = Count } 
{ DS:SI = Source } 
{ ES:DI = Dest |} 
{ [BP-2] = SelectorInc } 
Procedure rep_movsb_dn; near; assembler; 


asm 
@@0: call check_cx_dn 
shr cx,l 
jnc @@1 
movsb 
@@1: dec si 
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dec di 
rep mMOVSW 
call check_si_di_dn 
add cx,dx 
jexz @@5 
jmp @@0 
@85: or bx,bx 
je @@e 
movsb 
dec bx 
mov Cx,$FFFF 
call check_si_di_dn 
jmp @@0 
@@e: 
end; 


Procedure _MoveDn(p1,p2:pointer;Count:Longint); assembler; 
var s_inc:word; 
asm 
mov ax,selectorinc 
mov S_inc,ax 
cld 
push ds 
lds si,pl 
les di,p2 
mov cx,count.word[0] 
mov bx,count.word[2] 
call rep_movsb_up 
pop ds 
end; 


Procedure _MoveUp(pl,p2:pointer ;Count:Longint); assembler; 
var s_inc:word; 
asm 
mov cx,count.word[0] 
mov bx,count.word[2] 
sub cx,1 
sbb bx,0 
je 1 
les di,p2 
push es 
push di 
push bx 
push cx 
les di,pl 
push es 
push di 
push bx 
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push cx 

call IncPtr 

mov pl.word[0], ax 
mov pl.word[2].dx 
call IncPptr 

mov es,dx 

mov di,ax 

mov ax,selectorinc 
mov S_iNC,ax 

std 

push ds 

lds si,pl 

mov Ccx,count.word[0] 
mov bx,count.word[2] 
call rep_movsb_dn 

pop ds 

@@1: 
end; 


Function EqualAt(pl,p2:pointer;Count:Longint):pointer; assembler; 
var s_inc:word; 
asm 
mov ax,selectorinc 
mov S_inC,ax 
cld 
push ds 
Ids si,pl 
les di,p2 
mov cx,count.word[0] 
mov bx,count.word[2] 
call repne_cmpsb 
jne @@2 
mov dx,ds 
mov ax,si 
sub ax,l 
jnc @@1 
sub dx,s_inc 
e@1: 
jmp a3 
@@2: 
xor ax,ax 
mov dx,ax 
@@3: 
pop ds 
end; 


Function UnEqualAt(p1,p2:pointer;Count:Longint):pointer; assembler; 
var s_inc:word; 
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asm 
mov ax,selectorinc 
mov S_inc,ax 

cld 

push ds 

Ids si,pl 

les di,p2 

mov cX,count.word[L0] 
mov bx,count.word[2] 
call repe_cmpsb 

je 08 

mov dx,ds 

mov ax,si 

sub ax,1 

jnc @@l 

sub dx,s_inc 


jmp 883 


xor ax,ax 
mov dx,ax 


pop ds 


Procedure Check_DI_UP; near: assembler; 
asm 
or di,di 
jne 6@1 
mov Si,es 
add si,selectorInc 
mov es,si 
@@1: 
end; 


Procedure Check_CX_1; near; assembler; 
asm 
mov dx,di 
add dx,cx 
jnc @@1 
sub cx,dx 
jmp @@2 
@@l:xor dx,dx 
@@2: 
end; 


Function FindByte(what:byte;where:pointer:;Len:Longint):pointer; 
assembler; 
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asm 


@@0: 
@@1: 


865: 


@@E: 


@aX: 


@aXX: 
end; 


Procedure FillByte(what:byte;where:pointer;Len:Longint); 


asm 


880: 
e@1: 


882: 
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cld 

les di,where 

mov al,what 

mov bx,1en.word[2] 
mov cx,len.word[0] 
call check_cx_1 
repne scasb 

pushf 

call check_di_up 
add cx,dx 

popf 

je @@e 

jexz 685 

jmp a0 

sub cx,l 

sbb bx,0 

je  @ex 

call check_cx_1 

inc dx 

jmp @@ 

mov dx,es 

mov ax,di 

sub ax,l 

jnc @@XX 

sub dx,selectorInc 
jmp BEXX 

xor aX,ax 

mov dx,ax 


cld 

les di,where 

mov al,what 

mov ah,al 

mov bx,1len.word[2] 
mov cx,Ten.word[0] 
call check_cx_1 

shr cx.l 

jnc @@2 

stosb 

rep stosw 

call check_di_up 
add cx,dx 

jcxz @65 


assembler; 
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jmp @@0 
@@5: sub cx.1 
sbb bx,0 
je ex 
call check_cx_1 
inc dx 
jmp @@l 
@eX: 
end: 


Procedure FillWord(what:word:where:pointer;Len:Longint); assembler; 
asm 
cld 
les di,where 
mov ax,what 
mov bx,len.word[2] 
mov cx,len.word[0] 
and cx,$FFFE 
@@0: call check_cx_1 
@@1: shr cx,1 
adc dx,0 
rep stosw 
call check_di_up 
add cx,dx 
jexz 665 
jmp @@0 
@@5: sub cx.l 
sbb bx,0 
je  e@x 
call check_cx_1 
inc dx 
jmp @@1 
@eX: 
end; 


Function FindBuf(buf:pointer;buflen:Longint; 
Where:pointer;Len:Longint):Pointer; 
var b:byte; 
pl.p2:pointer; 
begin 
FindBuf:=nil; 
if (Buflen>0) and (Len>=buflen) then 
begin 
b:=byte(buf*); 
pl:=where; 
repeat 
p2:=nil; 
pl:=FindByte(b,pl.1en); 
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if (pl<>nil) and (SubPtr(pl,where)<=len-buflen) then 
begin 
p2:=UnequalAt(buf,pl,buflen); 
if p2<>nil then pl:=IncPtr(pl,1) 
end else pl:=nil; 
until (p2=nil); 
FindBuf:=pl; 
end; 
end; 


Function FindStr(S:string;Where:pointer;Len:Longint):Pointer; 
begin 

FindStr:=FindBuf(@S[1], length(S) ‚where, len); 
end; 


Procedure InsertBuf(source ‚dest:pointer;count,pos,dmaxlen:longint; var 
dlen:Longint); 
var c:longint; 
begin 
if pos+count>dmaxlen then count:=dmaxlen-pos; 
if count>0 then 
begin 
if dlen>pos then 
begin 
c:=dlen-pos; 
if (c>dmaxlen-pos-count) then c:=dmaxlen-pos-count; 
if c>0 then _MoveUp(incptr(dest,pos),incptr(dest,pos+count).c): 
dlen:=pos+count#tc; 
end; 
_MoveUp(source, incptr(dest,pos) count); 
if pos+count>dlen then dlen:=pos+count; 
end; 
end; 


Procedure DeleteBuf(p:pointer;pos,count:longint;var dlen:longint); 
begin 

if dlen>pos+count then 

begin 

_MoveDn(incptr(p,pos+count), incptr(p,pos),dlen-pos-count); 

end else dlen:=pos; 
end; 


END. 
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Neben dem Management der Speicherresourcen von RAM und 
Festplatten ist es auch die Aufgabe des Betriebssystems, Prozesse 
(d.h. Programme) zu starten, zu beenden und den korrekten Ablauf 
sicherzustellen. Gerätetreiber müssen geladen und installiert wer- 
den, Interruptvektoren gesetzt und gelesen werden und vieles 
mehr. 


Diese und verwandte Aufgaben fallen im weiteren Sinne unter das 
Thema Prozefßtmanagement. Daneben müssen kritische Fehler (wie 
der Zugriff auf nicht bereite Diskettenlaufwerke oder ein Überlauf 
des FPU-Stacks) abgefangen und so behandelt werden, daß die Sy- 
stemintegrität erhalten bleibt. Dies kann im einfachsten Fall darauf 
hinauslaufen, das Programm, das den Fehler verursachte oder in 
dem der Fehler auftrat, zu beenden. Dies ist auch die typische Feh- 
lerbehandlung, die Turbo-Pascal zur Verfügung stellt: Der Abbruch 
des Programms mit einem Laufzeitfebler. Aber auch dieser schlichte 
Programmabbruch muß schon einigermaßen geordnet vonstatten 
gehen und fällt damit unter das Thema der Fehlerbehandlung. 


Im Prinzip gehören zum Prozeßmanagement auch die Installation 
und die Handhabung von (Hardware-) Interrupts sowie alle Schutz- 
maßnahmen, die der Protected Mode hardwareseitig zur Verfügung 
stellt. Der Protected Mode war Thema von Kapitel 12 (und wird hier 
nicht mehr angesprochen) und zu den Hardwareinterrupts wurde in 
Kapitel 3.2 schon einiges gesagt. 

Auf den Umgang mit TSR (Terminate But Stay Resident)-Program- 
men wurde auch schon in Kapitel 11.3 - wenn auch nur periphär - 
Bezug genommen. 

In diesem Kapitel sollen vor allem die Funktionen vorgestellt wer- 
den, die DOS dem Programm zu diesem Themenkreis anbietet. 
Schließlich kommt kein Programm ohne zumindest eine Funktion 
dieses Bereichs aus: Jedes Programm muß irgendwie beendet wer- 
den können, und man wird dies kaum durch einen Neustart des 
Systems bewerkstelligen wollen. 
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Prozeßmanagement mit DOS-Interrupts 


DOS bietet eine ganze Reihe von Interrupts, die allein für das Pro- 
zeßmanagement reserviert sind. Auch der DOS-Interrupt 21h bietet 
eine ganze Reihe von Funktionen, die sich diesem Problemkreis 
widmen. Wenn möglich, so sollten neuere Programme die Funktio- 
nen des Interrupt 21h anwenden. Die Funktionen und Interrupts 
sollen im folgenden vorgestellt werden. 


Die BIOS- / DOS-Interrupts zum Prozeßmanagement 


Die Funktionen des Interrupt 21h werden im nächsten Abschnitt be- 
sprochen. 


Interrupt 0: ’Division by Zero’ 

Dieser Interrupt wird ausgelöst, wenn bei einer CPU-Operation DIV 
/ IDIV das Ergebnis zu groß ist, um es mit den CPU-Registern noch 
darstellen zu können, oder versucht wird, durch Null zu teilen. Da- 
bei ist zu beachten, daß beim CPU-Befehl IDIV R/MI6 die Register 
DX:AX durch einen 16-Bit-Operanden geteilt werden, das Ergebnis 
aber auch in dem 16-Bit-Register AX darstellbar sein muß. Sonst 
wird von einer Division durch Null gesprochen, auch dann, wenn 
der Divisor nicht wirklich Null war. 


Interrupt 1:’Trace-Mode-Interrupt’ 
Ist das Trap-Bit in den CPU-Flags gesetzt (vergl. Kapitel 1.1.1), so 


wird nach der Ausführung je eines CPU-Befehls der Interrupt 1 aus- 
gelöst. Dies wird für das Debuggen im Einzelschrittmodus benötigt. 


(Die CPU behandelt einen Interruptaufruf als einen Befehl, nicht 
jedoch JUMPs und CALLSs). 


Ist das Trapflag gesetzt, so werden die Flags mit dem gesetzten 
Trapflag gesichert, das Trapflag im CPU-Flagregister gelöscht und 
die Interrupt-Service-Routine zu Interrupt 1 aufgerufen. Das heißt, 
das Trapflag wird erst nach dem nächsten IRET wieder gesetzt (da 
sich sonst der Debugger quasi selbst debuggen würde bzw. eine 
Endlosschleife entstehen müßte). 


Soll ein Programm im Einzelschrittmodus ausgeführt werden, so 
muß eine entsprechende Debugging-Routine unter Interrupt 1 in- 
stalliert werden und das auszuführende Programmstück am besten 
über einen IRET-Befehl aktiviert werden. Hierzu legt man ein Flag- 
wort auf den Stack, bei dem das Trapflagbit gesetzt ist, einschließ- 
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lich eines Far-Zeigers auf den zu aktivierenden Code. Dann sorgt 
ein IRET dafür, daß die CPU genau einen Befehl des zu untersu- 
chenden Fragments abarbeitet und zu Interrupt 1 verzweigt. 

Wie gesagt: Interruptroutinen lassen sich auf diese Art nicht debug- 
gen. Soll innerhalb einer Interrupt-Routine der Debugger aktiviert 
werden, so muß ein Breakpoint gesetzt werden. (Vergl. Interrupt 3). 


Interrupt 2: ’Non-Maskable-Interrupt’ 

Der NMI-Interrupt hat seinen Namen daher, daß er nicht durch den 
CPU-Befehl CLI gesperrt werden kann. Er dient zum Abfangen von 
RAM-Speicherfehlern. 


Interrupt 3: ’Breakpoint-Interrupt’ 

Der Breakpoint-Interrupt dient ähnlich dem Interrupt 1 dem Debug- 
gen. Wird mit Hilfe eines Debuggers ein Breakpoint gesetzt, so 
schreibt der Debugger an die entsprechende Stelle im Code das Be- 
fehlsbyte CCh ’INT3’. Dadurch ruft die CPU an dieser Stelle den In- 
terrupt 3 auf, und der Debugger kann wieder die Kontrolle über- 
nehmen. Auf diese Weise können an beliebiger Stelle im Code 
Breakpoints gesetzt werden. Der Debugger ersetzt nach seiner Ak- 
tivierung den INT3-Aufruf wieder durch das ursprüngliche Befehls- 


byte. 

Interrupt 4: ’Overflow-Interrupt’ 

Dieser Interrupt wird aktiviert, wenn im Anwendungsprogramm der 
Befehl INTO (CEh) auftritt und das Overflowflag (vergl. Kapitel 


1.1.1) gesetzt ist. Die entsprechende Fehlerbehandlung ist Sache des 
Programms (Bei Turbo-Pascal etwa wie Range-Checking). 


Interrupt 5: ’Print Screen’ 

Dieser Interrupt wird aufgerufen, wenn unter DOS die PriScr- oder 
SysReg-Taste gedrückt wird. Das Anwendungsprogramm kann sich 
hier einhängen, falls es diese Aufgabe selbst übernehmen möchte. 
Natürlich läßt sich dieser Interrupt auch per Software aufrufen und 
somit durch das Programm selbst eine Hardcopy initialisieren. Für 
Hardcopys in den CGA/EGA/VGA-Graphikmodi muß allerdings vor 
Aufruf der PrintScreen - Routine ein Server installiert worden sein, 
der eine graphische Hardcopy erzeugt wie das (residente) MS-DOS- 
Programm GRAPHICS.COM. 


(Die Interrupts 8h..OFh sind Hardware-Interrupts und werden von 
den entsprechenden IRQ-Signalleitungen ausgelöst). 
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Interrupt 19h: ’Reboot System’ 


Mit Hilfe dieses Interrupt läßt sich durch die Software ein Warmstart 
ausführen. (Auch dies gehört im weiteren Sinne zum Prozeßmana- 
gement). Ein Warmstart läßt sich aber auch durch einen direkten 
FAR-JUMP an die Adresse FFFFH:0000H - der Bootadresse der CPU - 
auslösen. 


Interrupt 1Bh: ’Control-C-Break’ 


Dieser Interrupt wird aktiviert, sobald der Anwender die Tasten- 
kombination Ctrl-C oder Ctrl-Break drückt (vergl. Interrupt 23h). 


Interrupt 20h: ’Terminate Program’ 


Dieser Interrupt kann (sollte aber bei neueren Programmentwick- 
lungen nicht mehr) dazu benutzt werden, einen Prozeß zu been- 
den. 


Der Handler erwartet, daß der Befehl aus einem Programmfragment 
heraus aufgerufen wird, für das gilt, daß das Codesegment dem 
PSP-Segment entspricht. Dies ist in der Regel nur bei COM-Pro- 
grammen der Fall. Schon deshalb ist es ratsam, stattdessen die 
Funktion 4Ch von Interrupt 21h zum Verlassen eines Programmes 
zu nutzen (dazu im nächsten Abschnitt mehr). 


Interrupt 22h: "Terminate Exit Address’ 


Unter diesem Interruptvektor ist die Adresse einer Folgeroutine ab- 
gelegt, die aufgerufen wird, sobald das laufende Programm beendet 
ist (oder wird). Entspricht etwa der Turbo-Pascal-Variablen ExitProc. 


Interrupt 23h: ’Ctrl-Break-Handler’ 


Dieser Interrupt wird von DOS aufgerufen, sobald das Ctri-Break- 
Flag gesetzt ist und DOS (etwa bei einem I/O-Aufruf) die Kontrolle 
erhält. Deshalb lassen sich z.B. die meisten DOS-Programme erst 
bei einer Bildschirmausgabe durch Ctrl-C oder Ctri-Break stoppen. 


Der von DOS installierte Handler bricht dann das laufende Pro- 
gramm meist mit einer schlichten Bildschirmmeldung ’AC’ ab. An- 
wendungsprogramme können sich hier einhängen und den Pro- 
grammabbruch etwas kontrollierter anbieten. Hierbei muß allerdings 
folgendes beachtet werden: Der AC-Handler teilt dem System über 
das Carryflag mit, ob die Programmausführung beendet werden soll 
oder nicht. Ein gesetztes Carryflag signalisiert, daß das Programm zu 
beenden ist. Aus diesem Grund muß der Interrupt-23H-Handler mit 
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einem einfachen RETF-Befehl abschließen, statt mit einem IRET, 
weil der Befehl IRET ja die Flags überschreibt. 

Das Programm AC_DEMO.PAS demonstriert, wie ein AC-Handler in 
Turbo-Pascal installiert werden kann. Es ist hierbei allerdings zu be- 
achten, daß die UNIT CRT die Ausgabe-Routinen der UNIT System 
modifiziert, so daß in diesem Fall der AC-Handler nicht mehr akti- 
viert wird. Hier das Listing von AC_DEMO.PAS: 


IRRRREIIAITRITÄHITRTÄTTRTRRIITTTRTSTITTREITISIISIHIRITIRTERTRICICH SR) 


*C-Demonstrations-Programm } 
Copyright (C) Christian Baumgarten, Hamburg 1993 } 
Wenn in der 'Uses' Anweisung die UNIT CRT auftaucht, } 
wird der Int23-Handler nicht mehr aktiviert !! } 


Starten Sie das Programm von der Dos-Ebene, wenn Sie |} 

sich vergewissern wollen, daß die “C-Routine auch bei } 

der Tastenkombination Ctrl-Break aktiviert wird. } 
reeleliinleekkeeldiilclidielileliieiidiliiclgisiilelnlielnleiielnliehdelelgieheleick 
program Ctri_C_DEMO; 
uses dos; 
var int23ptr:pointer; 
oldexit:pointer; 


procedure int23Handler; interrupt; 
begin 
asm 
sti 
end; 
writeln('*C Wurde gedrückt: (A)bbrechen ?'); 
asm 
mov ah,l { Funktion Olh: "Read Char from Keyboard and Echo' } 
int 21h 
cmp al,'A' 
je @@1 
cmp al,'a' 
je @@ 
eIc { Nicht abbrechen: Carryflag löschen. } 
jmp @@2 
@@1:stc { Programm abbrechen: Carryflag setzen. } 
@@2:mov sp,bp { Interrupt mit RETF abschließen: } 
pop bp 
pop es 
pop ds 
pop di 
pop si 
pop dx 
pop cx 
pop bx 
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pop ax 
retf 
end; 
end; 


procedure Exit; far; 
begin 
exitproc:=oldexit; 
setintvec($23, int23ptr); 
end; 


begin 
getintvec($23, int23ptr); 
setintvec($23,@int23Handler); 
oldexit:=exitproc; 
exitproc:=@Exit; 
repeat 
writeln('Press *C to Terminate Program’); 
until false; 
end. 


Natürlich ergeben sich gewisse Unterschiede in der Programmaus- 
führung, je nachdem, ob das Programm aus der Turbo-Pascal-IDE 
oder von DOS aus gestartet wird, da der in Turbo-Pascal integrierte 
Debugger selbst auf die Tastenkombination Ctrl-Break reagiert. 


Ob die Tastenkombination AC überhaupt überprüft wird, läßt sich 
über INT 21h, Funktion 33h erfragen (vergl. nächsten Abschnitt). 
Mit dieser Funktion läßt sich die AC-Abfrage auch ganz abschalten. 


Interrupt 24h: ’Critical Error Handler’ 


Tritt während der Ausführung eines Programms ein kritischer Fehler 
auf (etwa der Versuch auf ein nicht bereites Diskettenlaufwerk zu- 
zugreifen), so löst DOS einen Interrupt 24h aus. Normalerweise 
wird dann etwa mit der Abfrage ’Abbrechen, Wiederholen, Ignorie- 
ren ?” der Anwender zu einer Aktion aufgefordert. Das Anwen- 
dungsprogramm kann diesen Vektor auf eine eigene Routine setzen 
(wie dies der SysError-Handler der Turbo-Vision zum Beispiel prak- 
tiziert), um die Fehlerbehandlung selbst zu übernehmen. Bei Aufruf 
des Handlers ist das Interruptsystem gesperrt, und es sind folgende 
Registerwerte definiert: 

AX: Fehlercode 

DI: erweiterter Fehlercode 


BP:SI Zeiger auf den Device Header des Treibers, der den 
Fehler signalisiert hat. 
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Zu den Fehlercodes siehe Tabelle bei DOS-INT-21H-Funktion 59h 
im nächsten Abschnitt. 


Interrupt 27h: ’Terminate But Stay Resident’ 


Dieser Interruptaufruf ermöglicht es Programmen, zu 'terminieren’ 
ohne aus dem Speicher entfernt zu werden. Die Turbo-Pascal- 
Funktion Keep nutzt allerdings nicht diesen Interrupt, sondern die 
Funktion 31h des Interrupt 21h, der bei neueren Programmen der 
Vorzug gegeben werden sollte. 


Der Handler erwartet bei Aufruf in den Registern (CS auf dem 
Stack):DX einen Zeiger auf das Ende des residenten Moduls. 


Interrupt 28h: ’Idle’ 


Dieser Interrupt wird von DOS aufgerufen, wenn das System auf ei- 
ne Eingabe des Anwenders über einen DOS-Interrupt wartet. Die 
Funktion Readkey der UNIT CRT veranlaßt nicht den Aufruf von In- 
terrupt 28h, die Funktion 01h des Interrupt 21h jedoch tut dies. 
TSR-Programme und andere Anwendungen können sich hier ein- 
hängen und die Leerlaufzeit nutzen. 


Interrupt 2Eh: ’Call COMMAND.COM’ 


Dieser (undokumentierte) Interrupt läßt sich nutzen, um DOS- 
Commandos aufzurufen. Dabei wird in DS:SI ein Zeiger auf die 
Komandozeile übergeben. Sie muß im ersten Byte die Länge ent- 
halten und mit einem CR (ASCII 13) abschließen. Alle Register (ein- 
schließlich SS und SP) werden bei dem Aufruf zerstört. 


Die Wirkung ist identisch mit einem entsprechenden Kommandozei- 
lenbefehl, der von der DOS-Ebene aus eingegeben wird. Das aufru- 
fende Programm muß jedoch dafür Sorge tragen, daß freier DOS- 
Speicher zur Verfügung steht, falls der transiente Teil des 
COMMAND.COM oder ein externes Programm nachgeladen werden 
muß. Folgende Routine stellt eine mögliche Schnittstelle zu diesem 
Interrupt dar: 


uses dos ‚memory: 


procedure Comspec(Command:String); 
const _ss:word = 0; 
_sp:word = 0; 
begin 
inc(command[0]); 
commandLord(command[0])]:=#13; 
setmemtop(heapptr); 
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swapvectors:; 
asm 
push bp 
mov _SS,SS 
mov _SP.SPp 
lea si,command 
push ss 
pop ds 
int $2E 
ci 
mov ax,seg @data 
mov ds,ax 
mov SS,_SS 
mov Sp,_SP 
sti 
pop bp 
end; 
swapvectors; 
setmemtop(heapend); 
end; 


Sollte diese Prozedur statt des gewünschten Ergebnisses einen fie- 
sen Absturz des Systems zur Folge haben, so kann dies daran lie- 
gen, daß sie aus der Turbo-IDE heraus aufgerufen wurde. Die Nut- 
zung innerhalb eines Programms, das von DOS aus gestartet wurde, 
sollte hingegen keine Schwierigkeiten bereiten. 


Interrupt 2Fh: ’Multiplexer-Interrupt 

Dieser Interrupt stellt eine Schnittstelle zur Kommunikation zwi- 
schen / mit residenten (TSR-) Programmen und Treibern dar. In die- 
ser Form und Funktionsweise wird er jedoch erst ab DOS-Version 
3.0 unterstützt. 


Ein TSR-Programm, das über den Interrupt 2Fh kommunizieren will, 
benötigt eine Kennung. Diese wird bei Aufruf im AH-Register über- 
geben. Das Programm sichert den ursprünglichen Interrupt-Vektor 
und setzt ihn auf den eigenen Handler um. Wird der Interrupt nun 
aufgerufen, so sind zwei Fälle möglich; entweder entspricht der 
Inhalt von AH der eigenen Kennung. Dann muß das Programm die 
Funktionsnummer in AL auswerten. Oder es handelt sich um eine 
andere Kennung. Dann wird der ursprüngliche Handler aufgerufen. 


Um zu erfahren, ob eine Kennung in Gebrauch ist, wird die Funk- 
tion 0 (AL = 0, AH = Kennung) aufgerufen. Das Ergebnis wird in AL 
übergeben. Steht nach dem Aufruf immer noch eine Null in AL, so 
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13.1.2 


darf man davon ausgehen, daß der entsprechende Treiber nicht in- 
stalliert ist. Welcher Wert allerdings signalisiert, daß ein Treiber ge- 
laden ist, ist nicht einheitlich festgelegt. Viele TSR-Programme signa- 
lisieren mit AL = FFh ihre Anwesenheit. Ein TSR-Programm, das sich 
in den Interrupt 2Fh einhängt, muß sich natürlich ebenfalls über 
diese Funktion zu erkennen geben. 

Die Kennungsnummern 00 bis BFh sind für das Betriebssystem re- 
serviert. Alle anderen TSR-Programme und Treiber müssen sich die 
Kennungen von COh bis FFh teilen. 

Interessant ist vor allem die Schnittstelle von HIMEM.SYS (Kennung 
43h), die man benötigt, wenn man das Extended Memory nutzen 
will, das nicht dem EMM-Manager zugeteilt wurde. 

Der Treiber gibt, wenn er installiert ist, bei Unterfunktion 0 in AL 
den Wert 80h zurück. Wird der Treiber mit Funktion 10h aufgerufen 
(AX = 4310h), so gibt er in ES:BX die Adresse einer FAR-Routine zu- 
rück, über die die verschiedenen Funktionsaufrufe erfolgen (vergl. 
Kapitel 11). 

Eine andere interessante Funktion ist die Installationsabfrage von 
GRAPHICS.COM, Funktion AEOOh. Ist das Programm installiert, wird 
in AX der Wert FFFFh zurückgegeben. 


Die Funktionen des Interrupt 21h zum Prozeßmanagement 


Neuere Programme sollten sich bei allen Problemen des Prozeßma- 
nagements an die Funktionen des Interrupt 21h halten, soweit dies 
möglich ist - und auch dort möglichst an die neueren Funktionen. 


Interrupt 21h, Funktion 00h: ’Terminate Process’ 
IN: 

AH: 00h 

(CS auf dem Stack): Adresse des PSP des aufrufenden Prozesses 
Anm.: Dieser Aufruf entspricht weitgehend dem Interrupt 20h. Da- 
mit die Rücksprungadresse auf dem Stack tatsächlich dem PSP ent- 
spricht, muß der Aufruf entweder in einem COM-Programm oder im 
Hauptteil eines EXE-Programms erfolgen. Derartige Einschränkun- 
gen gelten bei Funktion 4Ch nicht. Deshalb sollte jedes neue Pro- 
gramm die Funktion 00h meiden. 
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Interrupt 21h, Funktion 25h: ’Set Interrupt Vektor’ 


IN: 

AH: 25h 

AL: Interrupt-Nummer 

DS:DX: Neue Adresse des Handlers 
OUT: - 


Anm.: Man sollte Interrupt-Vektoren möglichst niemals durch direk- 
ten Zugriff auf die Interruptvektortabelle setzen. Solches Vorgehen 
verrät nicht nur einen schlechten Programmierstil, sondern es garan- 
tiert auch nicht die Konsistenz der Vektortabelle. Die Turbo-Pascal- 
UNIT DOS bietet als Schnittstelle zu dieser Funktion die Prozedur 
Setintvec. 


Interrupt 21h, Funktion 26h: ’Create New PSP’ 


IN: 

AH: 26h 

DX: Segmentadresse des neuen PSP 
OUT: - 


Anm.: Die Funktion legt an der genannten Adresse einen neuen 
Programm-Segment-Prefix-Bereich an. Der Aufbau eines PSP ist 
Thema des nächsten Abschnitts. Bei Start eines neuen Programms 
legt DOS automatisch einen neuen PSP-Bereich an, so daß diese 
Funktion hierfür nicht benötigt wird. 


Interrupt 21h, Funktion 30h: ’Get DOS Version’ 


IN: 
AH: 30h 

OUT: 
AL Hauptversionsnummer 
AH: Unterversionsnummer 
BH Seriennummer 


BL:CX Benutzernummer 
Anm.: Turbo-Pascal stellt die DOS-Version durch Aufruf dieser DOS- 
Funktion bei Programmstart automatisch als Wort-Variable zur Ver- 
fügung, so daß die Hauptversion mit lo(DosVersion) und die Unter- 
version mit hi(DosVersion) ermittelt werden kann. 
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Interrupt 21h, Funktion 31h: ’Keep Resident’ 


IN: 

AH: 31h 

AL: Exitcode 

DX: Anzahl der resident verbleibenden Paragraphen 
OUT: - 


Anm.: Die Turbo-Pascal-Funktion Keep(Exitcode) reserviert grund- 
sätzlich allen vom Programm aktuell belegten Speicher. Wird aber 
z.B. für die Installation eines Programms ein Heap benötigt, der 
später freigegeben werden kann, so kann man Keep durch einen 
Aufruf dieser Funktion ersetzen. Wie man ein residentes Programm 
wieder aus dem Speicher entfernen kann, wird in Kapitel 11.3 be- 


schrieben. 
Interrupt 21h, Funktion 33h: ’Get/Set Ctrl-C Check’ 
IN: 
AH: 33h 
AL: 0/1 = Lese Status nach DL . Setze Status auf den Wert 
in DL 
DL: 0/1 Control-C-Abfrage Aus/Ein 


Anm.: Mit Hilfe dieser Funktion läßt sich die Control-C-Abfrage ein- 
und ausschalten. 


Interrupt 21h, Funktion 34h: ’Get DOS Critical Interval Flag’ 
IN: 

AH: 34h 
OUT: 

ES:BX Zeiger auf die Adresse des Flags 
Anm.: DOS benutzt als internen Arbeitsbereich nicht den Stack, son- 
dern legt seine internen Variablen in einem eigens hierfür reservier- 
ten Bereich ab. Wird nun eine DOS-Funktion durch einen anderen 
Prozeß oder einen Interrupt unterbrochen, so kann dies zu ’Interfe- 
renzen’ führen. Damit ein Interrupt-Handler also ent-scheiden kann, 
ob sich DOS gerade in einem ’kritischen’ Zustand befindet, kann 
das Flag abgefragt werden. Hat das Flag den Wert Null, so können 
die DOS-Funktionen voll genutzt werden, bei einem Wert von eins 
sollte der unterbrechende Prozeß darauf verzichten, noch einmal 
den Interrupt 21h mit einer Funktionsnummer über OCh aufzurufen, 
da sonst DOS intern in einen inkonsistenten Zustand gerät. 
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Interrupt 21h, Funktion 35h: ’Get Interrupt Vektor’ 


IN: 

AH: 35h 

AL: Interrupt-Nummer 
OUT: 


ES:BX Interruptvektor 
Anm.: Im Protected Mode müssen Interruptvektoren über die ent- 
sprechende Funktion des DPMI-Servers erfragt werden. 


Interrupt 21h, Funktion 4Bh: ’Load and Execute a Program’ 
Bei dieser Funktion werden mit dem AL-Register Unterfunktionen 
selektiert: 
Unterfunktion 0: ’Load and Execute’ 
IN: 
AX: 4B00h 


DS:DX: Zeiger auf einen ASCIIZ-String mit Pfad- und 
Dateinamen des zu startenden Programms. 


ES:BX Zeiger auf eine Tabelle mit folgendem Aufbau: 


Offset Länge Inhalt 


0 2 Segmentadresse eines zu übernehmenden 
Environment-Bereichs oder Null 


2 4 Zeiger mit einem 'Pascal’-String auf die 
Kommandozeile (maximal 128 Byte) 

6 4 Zeiger auf einen FCB, der im PSP des neuen 
Prozesses abgelegt wird 

0Ah 4 Zeiger auf den zweiten FCB, der im PSP des 


neuen Prozesses angelegt wird 


OUT: 

Carryflag gesetzt: Fehlercode in AX 

Carryflag gelöscht: Fehlerfreier Aufruf 
Anm.: Der aufrufende Prozeß sollte seinen kompletten Registersatz 
(einschließlich SS und SP) vor dem Aufruf sichern und danach re- 
staurieren, weil ältere DOS-Versionen diese Register unter Umstän- 
den zerstören. Soll ein Programm ausgeführt werden, daß sich nicht 
im aktuellen Pfad befindet und dessen Pfad auch nicht bekannt ist, 
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so sollte als Kommandozeile 'COMMAND.COM /C Programmpfad 
Parameter’+CR übergeben werden, oder noch besser die Pfadan- 
gabe für 'COMSPEC’ aus dem Environmentbereich gelesen werden: 
Pfadangabe 'COMSPEC’ + ’ /C’ + Programmname/Kommando + Pa- 
rameter+CR. Zu beachten ist in jedem Fall, daß der Aufruf nur dann 
erfolgreich durchgeführt werden kann, wenn genügend freier DOS- 
Speicher zur Verfügung steht. Dies wird in Turbo-Pascal entweder 
durch die Begrenzung des zu reservierenden Heapspeichers mit der 
Compiler - Option {$M Stack, Heapmin, HeapMax} erreicht, oder - 
wie in der Turbo-Vision - mit der Funktion Setmemtop(Heapptr) aus 
der UNIT MEMORY realisiert. 


Unterfunktion 3: ’Load Overlay’ 


AX: 4B03h 
DS:DX Zeiger auf ASCIIZ-String mit dem Pfadnamen 
ES:BX Zeiger auf Parameterblock mit folgendem Inhalt: 


Offset Länge Inhalt 

0 2 Segmentadresse, ab der der Overlaycode 
geladen werden soll 

2 2 ’Relokationsfaktor’ 

OUT: 


Carryflag gesetzt: Fehlercode in AX 

Carryflag gelöscht: Aufruf fehlerfrei 
Anm: Turbo-Pascal 7.0 bietet einen Overlay-Manager für DOS-Appli- 
kationen, den man im Bedarfsfall auch nutzen sollte. 


Interrupt 21h, Funktion 4Ch: ’Terminate Program’ 


IN: 

AH: 4Ch 

AL: Exit-Code (0 = Fehlerfreies Programmende) 
OUT: - 


Anm.: Mit Hilfe dieser Funktion lassen sich Programme einfach und 
’schmerzfrei‘ beenden. Turbo-Pascal-Programme sollten dies natür- 
lich -— wenn überhaupt in expliziter Form — über Halt bewerk- 
stelligen, aber kleine Assemblerprogramme, die mit TASM erstellt 
wurden, können die Funktion gut nutzen. 


338 


13 Prozeß- und Fehlermanagement 


Interrupt 21h, Funktion 4Dh: ’Get Exitcode’ 


IN: 

AH: 4Dh 
OUT: 

AX: Exitcode 


Anm.: Die Funktion gibt den Exitcode eines über die Funktion Exec 
vom laufenden Programm aus gestarteten Unterprogramms zurück. 
Die Turbo-Pascal-Variable ExitCode wird über diese Funktion ge- 
setzt. 


Interrupt 21h, Funktion 59h: ’Get Extended Error Information’ 


IN: 
AH: 59h 
BX: 0 

OUT: 
AX: Erweiterte Fehlerinformation 
BH: Fehlertyp/Fehlerklasse 
BL: Vorgeschlagene Maßnahme 
CH: Fehlerhinweis 


Anm.: Die Funktionen des DOS-Interrupt 21h, über die praktisch 
die gesamte Kommunikation zwischen Betriebssystem und Pro- 
gramm abgewickelt wird, lassen sich bezüglich der Fehlerhandha- 
bung grob in zwei Blöcke aufteilen: Die alten Funktionen und die 
neuen Funktionen. Bei den älteren Funktionen wird nach einem 
Aufruf meist im AL-Register ein Statuswert zurückgegeben, der bei 
jeder Funktion leicht individuelle Bedeutungen hat. Im allgemeinen 
bedeutet AL = 0 einen fehlerfreien Aufruf. 


Die neueren Funktionen setzen im Falle eines Fehlers bei Rückkehr 
das Carryflag. In diesem Fall enthält das AX-Register einen Fehler- 
code, dessen Bedeutung bei allen Funktionen einheitlich festgelegt 
ist. 

Ein Teil der Fehlercodes (0..18) wird im Borland-Pascal-Handbuch 
beschrieben. Diese und alle weiteren beschreibt Tabelle 13.1. Sie 
werden automatisch zurückgegeben, auch ohne daß Funktion 59h 
aufgerufen wurde. 


Die Art des Fehlers beschreibt ein Code, der in BH zurückgegeben 
wird. Tabelle 13.2 listet die definierten Fehlerklassen auf. Tabelle 
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13.3 zeigt eine Liste der Codes für Maßnahmen, die vom Betriebs- 
system im Fehlerfall empfohlen werden. 


Tabelle 13.4 zeigt die Codierung des Hinweis-Bytes aus Register CH. 


Tabelle 13.1: 
DOS-Fehler- 
codes Ungültiger Aufruf (Funktionsnummer nicht definiert) 


Datei nicht gefunden 


Pfad nicht gefunden 


1 


1 
1 


3 


Ir |m 
a|jıu 


Umbenennen nicht über verschiedene Laufwerke möglich 
Keine weiteren Dateien gefunden 
Schreibversuch auf schreibgeschützte Diskette 


0 
2 
7 
8 


bl 


1 
1 
1 

9 
20 
21 
22 


Laufwerk/Einheit unbekannt 
Laufwerk nicht bereit 


Laufwerk nicht gefunden 
Aktuelles Verzeichnis kann nicht gelöscht werden 
Kommando nicht bekannt 


Fehler im Zugriffscode 


u 


DINO IN 


27 
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Tabelle 13.1 
(Fortsetzung) 


Paper End im Drucker 


Schreibfehler 


Überlauf des ’Sharing’-Puffers 


Netzwerkknoten nicht ansprechbar 


Verletzung der Zugriffsrechte beim Dateizugriff 
Netzwerksname schon beleg 


Laufwerkswechsel abgewiesen 


Netzwerkeinheit mit diesem Namen nicht gefunden 
Netzwerk bus 


Hardwarefehler im Netzwerk 
Netzwerk arbeitet fehlerhaft 
Unbekannter Netzwerkfehler 


Zu wenig Speicher für Druckpufferdatei 
Druckerdatei gelöscht 


Dateioperation nicht abschließbar 
Netzwerkname gelöscht 


Kompatibilitätsfehler im Netzwerk 


Zugriff unzulässig 


Netzwerksfunktion wird nicht unterstützt 
Netzwerkeinheit ungültig 


Alle verfügbaren FCBs vergeben 
Netzwerkeinheit nicht vorhanden 


0___|Einheit befindet sich im Pausenzustnd_D_ | 
71 _[Netzwerkaufruf unwläsig — | 


Kommandoüberlauf im Netzwerk 


Isis Isis ie is |s Is Is iu Is | Is em m mm m me Be Be BR IS [2 IB I I 
Sr. dr [ee g 
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Tabelle 13.1: 
(Fortsetzung) 


Tabelle 13.2: 
DOS-Fehler- 
klassen 


2 Drucker- oder Laufwerkseinheit befindet sich in einem 
Pausenzustand 


Fehler im Interrupt-24H-Handler 


Passwort ungültig 
Parameter ungültig 


8 Datenfehler im Netzwerk 


Netzwerk-Funktion wird nicht unterstützt 


Erforderliches Gerät nicht installiert 


Fehlerursache ist zeitlich begrenzt (Versuch wiederholen) 


Fehler besteht in dem Versuch, eine nicht autorisierte 
Operation durchzuführen 
Interner DOS-Fehler 


Hardware ist fehlerhaft 
Fehler im Betriebssystem 


an | &@ 100 


90 


11 |Fehlerhafier Datenger—[—[—D | 


Unbekannter Fehler 


- - 


13 
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Tabelle 13.3: 
Vorgeschla- 
gene Aktionen 


Tabelle 13.4: 
Hinweis zur 
Lokalität des 
Fehlers 


13.1.3 


wer are 0000 
Versuch wiederholen 
Wiederholen nach einer Wartezeit 


3 Aufforderung an den Anwender, einen Namen (oder Pfad) 
zu korrigieren 

4 Geordnete Programmbeendung (Dateien schließen, 
Interruptvektoren zurücksetzen etc. ) 

Sofortiger (ungeordneter) Programmabbruch 


7 Aufforderung zur Korrektur an den Benutzer und erneuter 
Versuch (z.B. wenn Diskette nicht im Laufwerk) 


Fehlergerät unbekannt 


Blockgerät (Festplatte / Diskette / CD-ROM) 
Zeichenorientiertes Gerät (z.B. Drucker) 


RAM (Fehler im Arbeitsspeicher) 


Interrupt 21h, Funktion 62h: ’Get Program Segment Prefix’ 


IN: 
AH: 62h 
OUT: 
BX: PSP-Segmentadresse 


Anm.: Der Aufruf ist erst ab DOS-Version 3.0 implementiert. Turbo- 
Pascal stellt in der Variablen PrefixSeg der UNIT SYSTEM aber die 
PSP-Segmentadresse bereit. 


Der Aufbau des Program-Segment-Prefix 


Das ProgramSegment-Prefix ist ein 256 Byte langer Bereich, der 
allen Programmen - sowohl COM- als auch EXE-Programmen - vor- 
angestellt wird. In diesem Bereich sind Informationen zu finden, die 
das Programm u.U. vom Betriebssystem benötigt. So findet sich hier 
unter anderem auch die Paragraphenadresse des Environmentbe- 
reichs (vergl. 13.1.9). 
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Tabelle 13.5: 
Aufbau des 
PSP 


13.1.4 


CHE 
12h Vektor zum Interrupt 24h (Critical Error Hand- 


ler) 


Segmentadresse des Environmentbereichs 


- 
a 
> 


EIESKIRASI IE 
||| =. 


[es] 
ED 


0 
8ih 


Der Bereich ab Offset 80h wird von DOS als DTA (Disk Transfer 
Area) genutzt, wenn die Adresse des DTA nicht vom Programm 
über die DOS-Funktion 1Ah (Set Disk Tranfer Address) verändert 
wurde. Tabelle 13.5 zeigt den Aufbau des Program-Segment-Prefix. 


o\ 


oO 


10 Is | [oa [ao IND IND LS ES vl 


> 


127 


Der Aufbau des Environmentbereichs 

Der Environment-Bereich (oder auch Programmumgebungsblock) 
enthält eine Reihe von Einträgen, denen das Programm bestimmte 
Informationen über Systemvariablen entnehmen kann. Ein Eintrag 
in dieser Liste hat das Format eines ASCIIZ-Strings der Form 
VARIABLE = WERT, also z.B. COMSPEC=C:\DOS\COMMAND.COM. 
Der Environmentbereich endet, wenn zwei ASCII-Null-Zeichen auf- 
einander folgen. Daran schließt sich noch ein ASCIIZ-String mit 
Programmpfad und -Dateinamen an (was ab DOS 3.0 in Turbo- 
Pascal auch über die Funktion Paramstr(0) zur Verfügung steht). 
Typischerweise weist das Environment folgende Einträge auf: 

-  COMSPEC = XXX 

- PATH = RX 

- PROMPT = XXX 

- TEMP = XXX 
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13.1.5 


Für den Programmierer dürfte insbesondere der Eintrag 'PATH=... 
von Interesse sein, wenn es darum geht, bestimmte Dateien in den 
Systemverzeichnissen zu finden. Mit dem DOS-Befehl SET läßt sich 
dem Environmentbereich ein Eintrag hinzufügen. Seine Adresse 
kann man dem Program-Segment-Prefix entnehmen (vergl. 13.1.3). 


Laufzeitfehler in Turbo-Pascal abfangen 


Die minimale Fehlerbehandlung ist der geordnete Programmab- 
bruch, wie er in Turbo-Pascal über die Exitprozeduren realisiert 
wird. Diese Fehlerbehandlung läßt sich teilweise durch die Option 
$1+/$I- außer Kraft setzen, so daß sich eine differenziertere Fehler- 
behandlung bei Dateizugriffen realisieren läßt. Auch die Fehlerbe- 
handlung bei der Reservierung oder Freigabe von Heapspeicher läßt 
sich über die Funktion HeapErrorFunc beeinflussen. Will man aber 
z.B. komplizierte mathematische Berechnungen (z.B. mit Fließkom- 
mazahlen) anstellen und verhindern, daß das Programm beim Auf- 
tritt eines Fehlers beendet wird, so ist der Aufwand u.U. schon ganz 
erheblich, wenn z.B. jede Funktion zuerst einmal die Gültigkeit 
ihrer Argumente überprüfen muß u.s.w. Die Ausführung dieser Prü- 
fungen kann dabei einen Großteil der Rechenzeit in Anspruch neh- 
men. Zudem muß aufgrund der prozeduralen Verschachtelung 
praktisch jede Funktion anfangs prüfen, ob bereits ein Fehler auftrat 
und ggf. die Ausführung abbrechen, um nicht immer weitere Folge- 
fehler zu produzieren bzw. um die Lokalisierung des Fehlers zu ge- 
währleisten. 


Um dies zu vermeiden, kann man allerdings auch einen Trick an- 
wenden, der allerdings einen ziemlich extremen Eingriff darstellt: 
Man vermeidet - um beim mathematischen Beispiel zu bleiben - 
jede Überprüfung von Argumenten in den kritischen Routinen und 
nimmt den ’Programmabbruch’ bei Auftreten eines Fehlers in Kauf. 
Ein ’Programmabbruch’ in Turbo-Pascal besteht in dem Aufruf der 
Prozedur ExitProc. Und hier beginnt die Manipulation: Man setzt 
vor Aufruf der kritischen Prozedur ExitProc auf eine Routine, die 
nicht zurückkehrt, sondern einen Sprung (FAR-JUMP) auf eine zu- 
vor definierte Adresse ausführt und den Stack in definierter Weise 
restauriert. (Für die Programmierung in Assembler wäre dies ein re- 
lativ ’'normales’ Manöver, in Turbo-Pascal grenzt es an Hochverrat.) 
Auf diese Weise werden alle Rücksprungadressen auf dem Stack 
umgangen und somit Folgefehler vermieden. 


Das ganze könnte etwa folgendermaßen implementiert werden: 


13.1 Prozeßmanagement mit DOS-Interrupts 345 


var oldexitproc,runerrorptr:pointer; 
basepointer ‚stackpointer:word: 
status: integer; 


{ Routine, die einen Runtimeerror auffängt } 
procedure CatchRunError; far; assembler; 
asm 
mov dx,seg @data 
mov ds,dx 
mov ax,oldexitproc.word[0] 
mov exitproc.word[0],ax 
mov ax,oldexitproc.word[L2] 
mov exitproc.word[2],ax 
fninit 
mov ax,exitcode 
stc { Carryflag setzen: RunTimeError ist aufgetreten } 
jmp dword ptr runerrorptr 
end: 


Function CallCritical(Call:Pointer):word; assembler; 
asm 

{ Adresse, bei der die CPU aufgesetzt wird, } 
{ wenn ein RuntimeError auftritt: } 
mov ax,cs 
mov runerrorptr ..word[2],ax 
mov ax,offset @@1 
mov runerrorptr .word[L0],ax 
mov ax,exitproc.word[0] 
mov oldexitproc.word[0],ax 
mov ax,exitproc.word[2] 
mov oldexitproc.word[2],ax 
mov ax,cs 
mov exitproc.word[2],ax 
mov ax,offset CatchRunError 
mov exitproc.word[L0],ax 

{ BP und SP sichern, falls RunTimeError auftritt: } 
mov stackpointer,sp 
mov basepointer,bp 
call dword ptr &Call 
mov ax,oldexitproc.word[0] 
mov exitproc.word[0],ax 
mov ax,oldexitproc.word[2] 
mov exitproc.word[2],ax 

@@1:jnc @@2 { Carry gesetzt = Runtimeerror ! } 
mov bp,basepointer { Fehler: BP und SP restaurieren. } 
mov sp,stackpointer 
jmp 0@@3 

@@2:xor ax,ax 

883: 

end; 
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Der Aufruf einer ’kritischen’ Prozedur würde dann so aussehen: 


Status:=CallCritical(@Critical_Prog); 
if Status<>0 then 
begin 


end; 


Hierbei ist ’Critical_Prog’ eine parameterlose FAR-Prozedur, in der 
das Auftreten eines Laufzeitfehlers möglich oder wahrscheinlich ist. 


DOS-Geräte-Treiber 


MS-DOS besteht zu wesentlichen Teilen aus Treibern, die die ent- 
sprechenden Geräte und Schnittstellen ansteuern. Diese Treiber sind 
nicht mit residenten Programmen zu verwechseln, die z.B. mit einer 
Anweisung in der AUTOEXEC.BAT aufgerufen werden und danach 
resident im Speicher verbleiben. So kann ein Treiber zwar auch In- 
terruptvektoren manipulieren, aber er muß es nicht, um aktivierbar 
zu sein. 


Der Device-Header 


Gerätetreiber müssen unter DOS bestimmten Standards entsprechen. 
Ein Bestandteil dieses Standards ist ein bestimmter fı .igelegter Auf- 
bau des ’Treiberkopfes’ (Device Header), über den die Kommuni- 
kation mit dem Treiber erfolgt. Jeder Treiberkopf enthält dabei ei- 
nen reservierten Platz, in den beim Ladevorgang die Adresse des 
nächsten Treibers eingetragen wird. Auf diese Weise entsteht eine 
vorwärts verkettete Liste, die mit dem ’NUL’-Treiber beginnt und die 
bei dem Treiber endet, dessen Header als Folgezeiger den Eintrag 
FFFFH:FFFFH enthält. Da der Dos-Control-Block (DCB) auch einen 
Zeiger auf den NUL-Treiber enthält, hat jedes Anwenderprogramm 
auf die Treiberkette Zugriff. Auf diese Weise kann ein Anwen- 
dungsprogramm in Erfahrung bringen, ob und wenn ja, an welcher 
Adresse ein Treiber geladen ist. Den Aufbau des Treiberkopfes zeigt 
Tabelle 13.6. 


Treiber können aus Binärdateien (*.SYS) oder aus EXE-Dateien gc- 
laden werden, während sich COM-Dateien hierfür nicht eignen. Der 
Grund liegt darin, daß COM-Dateien ab Offset 100h in den Arbeits- 
speicher geladen werden, während Treiber ab Offset 00h geladen 
werden. (Treiberdateien erhalten keinen eigenen PSP-Bereich). Will 
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Tabelle 13.6: 
Aufbau eines 
Device Header 


man deshalb mit TASM einen eigenen Treiber schreiben, so darf die 
Anweisung ORG 00H nicht fehlen. Der Treiber erhält auch keinen 
eigenen Stack. 


Zeiger auf den nächsten Treiberkopf (muß mit 
FFFFH:FFFFH initialisiert werden.) 


16-Bit-Feld mit den Attributen des Treibers 


Offset der Strategieroutine 
Offset der Interruptroutine 
10 Js | Name der Geräteeinheit (z.B. 'CON ’) 


Damit der Gerätetreiber installiert wird, ist die Anweisung 
’DEVICE=... in die Datei CONFIG.SYS aufzunehmen. Bei Systemstart 
wird der Treiber dann geladen und aufgefordert, sich zu initialisie- 
ren. 

Das 16-Bit-Feld mit den Treiberattributen legt fest, um welche Art 
von Treiber es sich dabei handelt. Die einzelnen Bits sind dabei 
folgendermaßen zu belegen: 


Bit Bedeutung 

15 0/1: Block-/Zeichenorientierte Einheit 

14 1: Treiber kann Control-Zeichen verarbeiten 

13 Bei Blockorientierten Einheiten: 
1: Medium ist über Media-Descriptor-Byte identifiziert 
0: Medium besitzt kein Media-Descriptor-Byte 
Bei Zeichenorientierten Einheiten: 

: Treiber unterstützt den ’Output until busy’-Aufruf 


: Treiber kennt kein "Output until busy’-Signal 

: Speichermedium ist auswechselbar/kann geöffnet werden 
: Treiber unterstützt 'Generic-/O-CTRL'-Aufrufe 

: Einheit ist ’CLOCK$’-Treiber 

: Einheit ist "NUL’-Treiber 

: Einheit ist Standard-Ausgabeeinheit (CON’-Treiber) 

: Einheit ist Standard-Eingabeeinheit (CON’-Treiber) 


Pre rHr 0 u 


oO Hr, NND CO 
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Tabelle 13.7: 
Basisfelder ei- 
nes Request 
Headers 
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Alle anderen Bits sind reserviert und müssen auf Null gesetzt wer- 
den. Die Zeiger auf Strategie- und Interrupt-Routine müssen bereits 
in der Binärdatei korrekt gesetzt sein. 


Der Request-Header 


Wird eine Geräteeinheit angesprochen, so führt DOS zwei Aufrufe 
durch. Zuerst wird die Strategieroutine per FAR-CALL angesprochen. 
Ihr wird in den Registern ES:BX ein Zeiger auf einen ’Request- 
Header’ übergeben, den der Treiber in eine Liste eintragen muß. 
Danach wird die ’Interrupt-Routine’ per FAR CALL aktiviert, die den 
von der Strategie-Routine notierten Auftrag abzu-wickeln hat. Ist der 
Auftrag erfüllt, so setzt die Interruptroutine ein Flag im Request- 
Header, das dem Betriebssystem signalisiert, daß der Auftrag 
abgewickelt wurde. Diese Vorgehensweise ist theoretisch für Multi- 
tasking-Betriebssysteme geeignet. Praktisch setzt DOS aber stets nur 
einen Auftrag ab, so daß die ’Auftragsliste’ nur aus einem Zeiger zu 
bestehen braucht. Der Request-Header hat ein Basisformat, an das 
je nach Auftrag einige Felder angehängt werden. Das Basisformat 
beschreibt Tabelle 13.7. 


Iohat 


Länge des Request-Header in Bytes 


1 Nummer der Einheit (falls der Treiber mehrere 
Einheiten unterstützt.) 
8 RB | Funktionsspezifischer Aufbau 


Die Interruptroutine muß also im Request-Header die Auftrags- 
identität feststellen und je nach Code den Auftrag bearbeiten. 
Wenn sie damit fertig ist, setzt sie das Status-Wort ab Offset 3. Dabei 
gilt folgende Belegung: 


Bes 
DE 
EICHE 
5 je 
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Bit Inhalt 

0..7 Fehlercode 

8 _ Done-Flag (signalisiert, daß die Bearbeitung beendet ist) 

9 _ Busy-Flag (signalisiert, daß das Gerät zur Zeit beschäftigt ist) 
15  Eiıror-Flag (signalisiert einen Fehler) 

Die Bits 10..14 sind reserviert und auf Null zu setzen. 


Der Fehlercode in Bit 0..7 wird nur beachtet, wenn das Error-Flag 
gesetzt ist. 


Folgende Fehlercodes sind fest definiert: 


Code Bedeutung 


Einheit nur zum Lesen geöffnet 


Einheitennummer ungültig 
Einheit nicht bereit 
Fehlerhaftes Kommando 
CRC-Fehler 

Fehlerhafter Request-Header 
Seek-Fehler 

Unbekanntes Speichermedium 
Sektor nicht gefunden 


DON COA\WNKNDON MO 


Paper Out (bei Druckertreibern) 
0Ah Schreibfehler 

0Bh Lesefehler 

och Unbekannter Fehler 

OFh Unerlaubter Diskettenwechsel 


Natürlich sind diese Fehlercodes vom Typ der Einheit abhängig. Die 


Fehlermeldung ’Sektor nicht gefunden’ macht z.B. nur bei block- 
orientierten Geräten Sinn. 


Die Geräte-Aufrufe 


Je nach Typ und Attributen des Treibers muß dieser in der Lage 
sein, folgende Befehle ganz oder zum Teil zu bearbeiten: 
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Kommando_ Bezeichnung 


0 Initialisierung (nur einmal bei der Installation) 

1 Media Check (nur Blockgeräte) 

2 Aufbauen eines BPB (BIOS-Parameter-Blocks, nur 
Blockgeräte) 

3 Steuerzeichen empfangen (IOCTRL Input) 

4 Daten lesen 

5 Eingabepuffer prüfen (Nondestructive Input No 
Wait) 

6 Lese-Status angeben (nur Zeichengeräte) 

7 Lese-Puffer leeren (Input Flush, nur Zeichengeräte) 

8 Daten senden 

9 Schreiben und Verifizieren (nur Blockgeräte) 

10 Schreibstatus angeben (nur Zeichengeräte) 

11 Schreibpuffer leeren (Output Flush, nur Zeichen- 
geräte) 

12 Steuerzeichen senden 

13 Gerät öffnen (nur Zeichengeräte) 

14 Gerät schließen (nur Zeichengeräte) 

15 Angabe, ob das Medium wechselbar ist (nur Block- 
treiber) 

16 ’Output until busy’ 

19 Generic IOCTRL Request 

23 Get Logical Device 

24 Set Logical Device 


Die Anzahl der zu unterstützenden Aufrufe kann also je nachdem, 
welche Attribute der Treiber gesetzt hat, auch sehr gering sein. Ein 
Test zeigt, daß ein Treiber, in dessen Attributfeld ausschließlich das 
Bit für den Zeichentreiber gesetzt ist, nur mit den Codes null, vier 
und acht aufgerufen wird, d.h. mit den Befehlen INIT, READ und 
WRITE. 


Der Aufruf INIT (Code = 0) 

Jeder in der Datei CONFIG.SYS eingetragene Gerätetreiber wird di- 
rekt nach dem Ladevorgang einmal mit dem Kommando-Code null 
aufgerufen. Der Request-Header wird dabei um folgende Felder er- 
weitert: 
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[Oft ng lad UT | 
4 Zeiger auf das Ende des residenten Treiberteils 


4 Zeiger auf Kommandozeile/BIOS-Parameter- 
Block 


18 
22 1 | Nummer des ersten unterstützten Laufwerks 
Fehlerstatus-Wort (ab DOS 4.0) 


In das erste Feld müssen blockorientierte Einheitentreiber die Zahl 
der unterstützten Laufwerke eintragen und im vierten Feld die Num- 
mer des ersten unterstützten Laufwerks (A=0, B=1,...), während zei- 
chenorientierte Gerätetreiber stets nur eine Einheit unterstützen und 
diese Felder ignorieren. Besonders wichtig ist das zweite Feld. In 
ihm muß der Treiber das eigene Ende eintragen. Auf diese Weise 
kann ein Treiber mehr Speicher reservieren als die Datei, aus der er 
geladen wurde, umfaßt oder auch weniger. Weniger insbesondere, 
wenn die Routinen zur Initialisierung an das Ende der Treiberdatei 
gelegt werden. Diese Routinen werden ja nur einmal aufgerufen 
und können somit nach der Initialisierung anderweitig genutzt wer- 
den. 


fer 


— 


Ist die Initialisierung des Treibers mißlungen, so wird hier die Start- 
adresse des Treiberkopfes eingetragen (und die Anzahl der Lauf- 
werke auf Null gesetzt), so daß das Betriebssystem den Treiber 
nicht installiert. 

Das dritte Feld enthält bei Aufruf einen Zeiger auf die Kommando- 
zeile inklusive Dateinamen und Pfad, exklusive der Anweisung 
’DEVICE=’. Auf diese Weise können dem Treiber bei der Initialisie- 
rung eventuell benötigte Parameter übergeben werden. Sind die Pa- 
rameter fehlerhaft, so kann ab DOS 4.0 im letzten Feld ein Fehler- 
code übergeben werden. 

In dem gleichen Feld legen blockorientierte Einheitentreiber einen 
Zeiger auf eine Tabelle ab, die für jede unterstützte Einheit einen 
16-Bit-Zeiger (Offset) auf einen BIOS-Parameterblock enthält. Han- 
delt es sich dabei um identische Einheiten, kann es sich auch um 
denselben Parameterblock handeln. 


Media Check (Code = 1) 
Dieser Aufruf betrifft nur blockorientierte Einheiten. Der Request 
Header wird hierfür um folgende Felder erweitert: 
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Media Desciptor Byte des Medium (vergl. Kapitel 
9.1.3) 


Diskettenwechsel-Flag 
Zeiger auf den Laufwerksbezeichner (ab DOS 3.0) 


Das Diskettenwechselflag hat folgende Belegung: 


Wert Bedeutung 


1 Medium wurde gewechselt 
0 Diskettenwechsel kann nicht erkannt werden 
FFh Das Medium wurde gewechselt 


Build BIOS-Parameter-Block (Code = 2) 

Dieser Aufruf erfolgt bei blockorientierten Treibern, wenn das Spei- 
chermedium gewechselt wurde. Der Request Header wird bei die- 
sem Aufruf um folgende Felder erweitert: 


ofen [tänge [ion 


Der Treiber muß die Daten vom Bootrecord des Mediums in den 
Transferbereich lesen und anschließend die BPB daraus erstellen. 


Read from Device/Write to Device (Codes 3,4,8,9,12,16) 

Diese Aufrufe entsprechen sich im Aufbau des Request Headers. Bei 
zeichenorientierten Treibern wird pro Aufruf tatsächlich maximal 
ein Zeichen übertragen. Dennoch existiert ein Feld, über das die 
Anzahl der zu transferierenden Zeichen definiert ist. Aus diesem 
Grund sollte der Treiber dieses Feld auch auswerten und zumindest 
in der Lage sein, auch mehr als ein Zeichen pro Aufruf zu über- 
tragen. 


Folgende Erweiterungsfelder sind definiert: 
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Zeiger auf Laufwerksnamen (ab DOS 3.0) 
Startsektor (ab DOS 4.0 eine 32-Bit-Zahl) 


Bei zeichenorientierten Einheiten sind die letzten drei Felder ohne 
Bedeutung. 


Eingabepuffer prüfen (Code 5) 

Diese Funktion ist nur bei zeichenorientierten Treibern sinnvoll. Sie 
liest ein Zeichen aus dem Empfangspuffer, ohne dessen Inhalt zu 
verändern (Nondestructive Input No Wait). Der Request-Header 
wird bei diesem Aufruf nur um ein einziges Byte mit dem gelesenen 
Zeichen verlängert. 


Lese- /Schreibstatus ermitteln (Code 6, 10) 

Dieser Aufruf dient vor allem zur Überprüfung des Busy-Bits im Sta- 
tuswort, das der Treiber, je nach aktuellem Zustand, zu setzen oder 
zu löschen hat. Der Request-Header hat bei diesem Aufruf keine Er- 
weiterungsfelder. 


Lese- /Schreibpuffer leeren (Flush Buffer, Code 7 und 11) 

Der Aufruf dient im wesentlichen bei zeichenorientierten Einheiten 
dazu, den Treiber in einen definierten Zustand zu versetzen. Der 
Treiber wird angewiesen, seine Puffer zu löschen, d.h. alle Aufträge 
zu stoppen. 


Öffnen / Schließen der Einheit (Code 13, 14) 

Diese Aufrufe sind erst ab DOS 3.0 definiert. Sie dienen dazu, dem 
Treiber zu signalisieren, daß er ein Peripheriegerät initialisieren 
kann. Der Request-Header hat keine zusätzlichen Felder. Der Aufruf 
ist nur zulässig, wenn das entsprechende Attributbit im Treiberkopf 
gesetzt ist. Ist es nicht gesetzt, so wird auch mit der Turbo-Pascal- 
Anweisung Open(File) oder Close(File) kein solcher Aufruf an den 
Treiber abgegeben. 
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Prüfen, ob Einheit wechselbar ist (Code 15) 

Diese Funktion ist nur bei Treibern zulässig, deren Attribut-Bit elf 
gesetzt ist und erst ab DOS 3.0 definiert. Der Treiber muß das Busy- 
Bit des Statuswortes setzen, wenn das Medium nicht wechelbar ist. 


Der Request Header enthält keine zusätzlichen Felder. 


Generic IO-CTRL Request (Code 19) 

Dieser Aufruf ist erst ab DOS 3.2 definiert und dient zur Unterstüt- 
zung der DOS-Interrupt-21h-Funktionen 44h (Unterfunktion OCh 
und ODh). Über diese Funktionen lassen sich neue Zeichensätze 
auswählen und laden. Sie werden z.B. durch das DOS-Programm 
MODE aufgerufen. 

Der Aufruf ist nur bei Treibern zulässig, bei denen das IO-CTRL-Bit 
im Treiberkopf gesetzt ist. Der Request-Header wird durch folgende 


Felder erweitert: 
Orts änge [una TI 


Get / Set Logical Device (Code 23, 24) 

Die Funktionen sind ab DOS 3.2 definiert und erlauben die Abfrage, 
ob einem blockorientierten Gerät mehrere logische Laufwerke zuge- 
ordnet sind, bzw. die Festlegung einer solchen Zuordnung. So kön- 
nen zum Beispiel dem gleichen Diskettenlaufwerk mehrere logische 
Laufwerke zugerodnet werden, so daß mit einem physikalischen 
Laufwerk dennoch Diskettenkopien angefertigt werden können. 


Beispiel für einen Zeichentreiber 


In diesem Abschnitt will ich einen einfachen zeichenorientierten 
Treiber vorstellen. Der Treiber ist eine Art ’'NUL’-Gerät, d.h. er steu- 
ert kein Gerät. Es handelt sich vielmehr um einen Testtreiber, der 
allein dazu da ist, wiederzugeben, wie und mit welchen Codes er 
von DOS angesprochen wird. Mit seiner Hilfe läßt sich z.B. überprü- 
fen, wann ein Zeichen-Treiber mit der Turbo-Pascal-Anweisung 
RESET und CLOSE angesprochen wird. (Nämlich dann, wenn das 
entsprechende Attribut-Bit in seinem Header gesetzt ist.) 
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13.3 


13.3.1 


Das absolute Minimum, was der Treiber - abgesehen von der Instal- 
lation - tun muß, ist, in der Strategieroutine die Adresse des Re- 
quest-Headers entgegenzunehmen und in der Interruptroutine das 
Setzen des Statuswortes im Request-Header vorzunehmen. Ein Trei- 
ber, der diese Verrichtungen (und nichts weiter) ausführt, kann als 
’NUL’-Treiber bezeichnet werden. Natürlich sollte er dennoch nicht 
den Namen ’NUI’ erhalten, da dieser Name bereits vergeben ist. Soll 
der Treiber mehr können (z.B. Zeichen über eine IEEE-Meßgeräte- 
schnittstelle senden / empfangen), so sind die entsprechenden 
Funktionscodes separat zu bearbeiten. 


Der Sourcecode befindet sich als DEVICE.ASM auf der Beilagedis- 
kette. Mit der Batch-Datei MAKE_DEV.BAT wird die Treiberdatei 
DEVICE.SYS erstellt. 


Die DOS-Programmformate 


In diesem Kapitel will ich kurz die grundlegenden Dateitypen von 
DOS (d.h. COM-, EXE-Dateien) näher vorstellen. Die detaillierte 
Darstellung der weiteren - ebenso wichtigen - Dateitypen, wie OBJ- 
Dateien, DLLs u.s.w. würde ausreichen, ein eigenes Buch zu füllen 
und muß deshalb an dieser Stelle unterbleiben. 


COM-Dateien 


COM-Programme werden vom Programmlader (COMMAND.COM) 
direkt in den Arbeitsspeicher geladen. Sie dürfen deshalb keine re- 
lativen Segmentbezüge (FAR-CALLs u.a.) enthalten, da sie über kei- 
ne Relokationstabelle verfügen. Es ist jedoch zu beachten, daß 
COM-Programme einen PSP-Bereich erhalten, so daß alle absoluten 
Offsetbezüge um einen Wert von 100h ’erhöht’ werden müssen. Bei 
der Assembler-Programmierung wird dies mit der Anweisung ORG 
100H am Anfang des Programmbereichs erreicht. Weiterhin ist zu 
bemerken, daß in COM-Programmen alle Segmentregister den glei- 
chen Inhalt aufweisen, d.h. Code, Daten und Stack befinden sich im 
sowohl logisch als auch physikalisch gleichen Segment. Daher kann 
es auch keine COM-Programme für den Protected Mode geben, da 
Protected-Mode-Programme immer mehrere logische Segmente auf- 
weisen müssen - mindestens aber ein Code- und ein Stacksegment. 
Diese können aber unmöglich den gleichen Deskriptor besitzen. 
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Aufbau eines 
EXE-Headers 
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EXE-Dateien 


Der Turbo-Pascal-Compiler erstellt immer Programmdateien im EXE- 
Format. Diese Dateien bestehen im Gegensatz zu den COM-Dateien 
nicht aus einem direkten Abbild des Programmcodes, wie er im 
Speicher stehen soll. Der Grund hierfür ist leicht einzusehen. Wenn 
ein Programm absolute Adressen enthält (und EXE-Programme ent- 
halten solche Adressen), so gibt es für den Programmlader zwei 
Möglichkeiten: Entweder, er muß das Programm immer an die glei- 
che Adresse im Arbeitsspeicher laden - was aus naheliegenden 
Gründen nicht möglich ist - oder er muß alle Adressbezüge beim 
Laden des Moduls an die aktuelle Ladeadresse anpassen. Dieser 
Vorgang wird 'Relokation’ genannt. Damit der Programmlader die 
Adressen im Modul anpassen kann, muß er natürlich wissen, an 
welchen relativen Adressen im geladenen Programm Segmentwerte 
stehen, die an die tatsächliche Programmsegmentadresse angepaßt 
werden müssen. Der Programmlader erfährt dies über die Reloka- 
tionstabelle der EXE-Datei. 
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EXE-Dateien liegen deshalb in der Form vor, wie sie im Arbeitsspei- 
cher stehen würden, wenn sie ab Paragraphenadresse 0000H gela- 
den würden, d.h., die tatsächliche Ladeadresse muß zu allen Seg- 
mentwerten im Lademodul hinzugezählt werden. Um welche Worte 
des Programmcodes es sich dabei handelt, beschreibt die Reloka- 
tionstabelle. Jeder ihrer Einträge umfaßt ein Doppelwort, in dem die 
relative Adresse des anzupassenden Segmentwertes in Seg- 
ment:Offset-Notation steht. Enthält die Relokationstabelle also einen 
Eintrag 0010H: 0100H, und das Programm wurde an die Paragra- 
phenadresse 1000H geladen, so steht im Arbeitsspeicher an der 
Adresse 1010H:0100H ein Wort, zu dem 1000H hinzuaddiert werden 
müssen, da es eine Segmentadresse darstellt. Die Informationen 
über Lage und Länge der Relokationstabelle in einer EXE-Datei ste- 
hen im Dateikopf, dem ’EXE-Header'. Tabelle 13.8 zeigt seinen Auf- 
bau. 

Zu der Anzahl der Speicherseiten des Lademoduls ist anzumerken, 
daß dieser Wert alle (auch die angebrochenen) Speicherseiten um- 
faßt; es handelt sich also nicht um ’Programmlänge DIV 200H’ ! 

An den eigentlichen Programmcode können sich weitere Bereiche 
(wie z.B. symbolische Debuggerinformationen oder Ressourcen) an- 
schließen, so daß die Länge der EXE-Datei die Programmlänge ge- 
mäß EXE-HEADER durchaus übertreffen kann. 
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Für viele Anwendungen genügt die Darstellbarkeit der Dialoge und 
Fenster im Textmodus vollkommen. Will man jedoch Graphiken in 
ein Turbo-Vision-Programm einbinden, so wird man vielleicht ent- 
täuscht sein, daß die von Borland angebotene Version keinerlei 
Graphikfähigkeiten aufweist. Natürlich kann man mit etwas Auf- 
wand in den Graphikmodus umschalten - nur hat man im Graphik- 
modus eben keine Vision mehr. Für diejenigen, die mit dem Start 
des Computers zu Windows wechseln und es erst wieder verlassen, 
wenn sie die Kiste ausschalten, ist dies nicht weiter tragisch - 
schließlich kann man mit Borland Pascal oder Turbo Pascal für 
Windows spielend leicht @) und professionell Programme schrei- 
ben, die sich ausschließlich graphisch präsentieren. Dann hat man 
zwar den Ärger mit den Bildschirmkontexten, aber praktisch keiner- 
lei Ärger mehr mit den verschiedenen Graphikadaptern und ihren 
Eigenheiten. (Diesen hat nur noch der Anwender, wenn er Win- 
dows installiert). 


Da aber erstens die Turbo-Vision nun einmal existiert und Windows 
unter Borland Pascal 7.0 nicht mehr nötig ist, um Programme für 
den Protected Mode zu schreiben, und zweitens der PM die graphi- 
schen Möglichkeiten extrem erweitert, wenn genug Megabytes in- 
stalliert sind, so liegt es eigentlich nahe, der Vision Graphikfähigkei- 
ten einzuhauchen und somit eine Art "Windows’ ohne Windows zu 
erhalten. Genau dies soll hier geschehen, wobei allerdings ein- 
schränkend gleich zu Beginn gesagt sei, daß die von mir entwik- 
kelte Turbo-Graphics-Vision (TGV) nur die Standard-Videomodi der 
gängigen Graphikkarten bedient, d.h. CGA, Hercules und 
EGA/VGA. Alle anderen exotischen (wenn vielleicht auch besseren) 
Graphiksysteme und erweiterten Super-VGA-Graphikmodi mag der 
geneigte Leser dann selbst implementieren. Dies fällt einem sicher- 
lich leichter, wenn man das Prinzip der TGV verstanden hat. 
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KISS 


Das erste Prinzip, das mich bei der Implementierung leitete, war 
KISS: ’Keep it simple, stupid’. Alle Turbo-Vision-Objekte wissen ja 
bereits, wie sie sich am Bildschirm darzustellen haben. Es wäre zu 
aufwendig (und zu langweilig), allen Objekten einzeln beizubrin- 
gen, wie sie sich im Graphikmodus zu präsentieren haben (in dem 
z.B. jede ’Draw’-Methode durch eine 'Paint’ ergänzt würde). Zum 
Glück geht es viel einfacher und eleganter: Alle Vision-Objekte be- 
nutzen vordergründig vier Methoden, um sich auf dem Bildschirm 
darzustellen: WriteLine, WriteBuf, WriteString, und WriteChar. Bei 
genauerer Betrachtung zeigt sich jedoch, daß alle vier Methoden 
gemeinsam genau eine Prozedur benutzen: "WriteView’. 


WriteView ist das Herzstück der Turbo-Vision-Bildschirmausgabe. 
Writeview überprüft, ob und was am View-Objekt sichtbar ist und 
schreibt die entsprechenden Daten ggf. sowohl auf den Bildschirm 
als auch in den Bildschirmpuffer der übergeordneten Gruppenob- 
jekte. Als Eingabe erhält WriteView einen Puffer vom Typ 
’tDrawBuffer’, der entsprechend dem Videospeicher im Textmodus 
abwechselnd ein ASCII-Zeichen und das dazugehörige Bildschirmat- 
tribut enthält. WriteView schreibt bei jedem Aufruf maximal eine 
Zeile auf den Bildschirm. Als erstes überprüft die Routine, ob die 
gemäß der Z-Ordnung ’höherliegenden’ Viewobjekte der gleichen 
Gruppe einen Teil des darzustellenden Abschnitts überdecken. 
Wenn ja, so wird der Bereich entsprechend reduziert. Bleibt etwas 
übrig, so wird dieser Teil in den Gruppenpuffer (wenn vorhanden) 
transferiert. Das gleiche Spiel wiederholt sich mit der nächsthöheren 
Gruppe (nach Addition der Ursprungskoordinaten) bis hin zur Ap- 
plikation, deren ’Puffer’ schließlich der Videospeicher ist. All dies 
mag sich sehr kompliziert anhören - es braucht aber nicht weiter 
abzuschrecken, da ich an diesem Teil der Prozedur (wohlweislich) 
keine Änderungen vorgenommen habe. Die Änderung wird an der 
Stelle vorgenommen, an der bereits feststeht, daß Daten in den 
Bildspeicher transferiert werden sollen. Ab hier spätestens muß 
’WriteView’ für den Graphikmodus modifiziert werden, da 
(abgesehen von der Bildschirmausgabe des Textes) z.B. der Test, ob 
die Maus auszuschalten ist, im Graphikmodus anders ausfällt - der 
Mauscursor ist schließlich ein anderer. 

Somit ist auch klar, daß die TGV zuerst einmal nichts anderes sein 
wird, als die ’stinknormale’ Turbo Vision, abgesehen davon, daß die 
Textausgabe im Graphikmodus erfolgt, also ein Textbildschirm 
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emuliert wird. Dies bringt es mit sich, daß die graphischen Objekte 
- anders als in Windows - nicht beliebig verschiebbar sein werden, 
sondern jeweils nur an den Grenzen, die durch die Zeichenbox 
vorgegeben sind. Dies dürfte dem Ergebnis aber weder in optischer 
noch in funktionaler Hinsicht einen Zacken aus der Krone brechen, 
zumal die Ausrichtung an Bytegrenzen in der x-Koordinate die 
Möglichkeit einer schnellen graphischen Ausgabe extrem steigert. 
(Windows ist in dieser Hinsicht ja nicht gerade berauschend lei- 
stungsfähig). Aber natürlich wird die TGV noch wesentlich mehr 
können: Nur die Objekte, die bereits in der Vision implementiert 
sind und es eben ’gewohnt’ sind, sich im Textmodus darzustellen, 
werden sich auch weiterhin zeichenorientiert darstellen. Allen neu- 
en Objekten wird es freigestellt, sich über den ASCII-Zeichensatz zu 
präsentieren oder aber als Graphik. Ein Turbo-Vision-Objekt wird 
einfach dadurch zum ’echt’ graphischen Objekt, daß man das neu 
definierte Status-Flag 'sfgraphical’ des Objekts setzt. Sobald der Gra- 
phikmodus eingeschaltet ist, wird dann die neu hinzugefügte virtu- 
elle Methode PaintBits aufgerufen, die dem Objekt mitteilt, welcher 
Bereich gerade wo auf dem Bildschirm dargestellt werden soll. Das 
bringt es jedoch mit sich, daß eine Gruppe, in die ein ’echt graphi- 
sches’ Objekt eingefügt wird, keinen Textpuffer für die Bildschirm- 
ausgabe benutzen darf, da sonst beim Neuzeichnen der Gruppe das 
graphische Objekt gar nicht aufgefordert wird, sich zu zeichnen. 
Insbesondere darf also auch der Desktop nicht gepuffert sein. 


Weitere Probleme 


Natürlich ist es damit noch nicht getan. Es müssen noch weitere 
Modifikationen vorgenommen werden, wenn sich die Vision im 
Graphikmodus so präsentieren soll, wie sie es im Textmodus tut. 
Zunächst muß die Vision einen Textcursor selbst erzeugen und dar- 
stellen. Zu diesem Zweck wird die tView-Methode ’ResetCursor’ 
modifiziert und eine Interruptroutine in den Timer-Interrupt einge- 
hängt, die den Textcursor in regelmäßigen Abständen ein- bzw. 
ausblendet. Änderungen sind auch an denjenigen Routinen not- 
wendig, die die Mauskoordinaten in Empfang nehmen, da diese im 
Graphikmodus feiner gerastert sind. Ein weiteres Problem stellen 
die ’Syserror’-Funktionen dar, da beim Auftreten eines Fehlers an- 
ders als sonst direkt in den Bildschirmspeicher geschrieben wird. 
Dieses Problem wurde der Einfachheit halber umgangen, so daß bei 
dem Auftreten eines Systemfehlers schlicht in den Textmodus zu- 
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rückgeschaltet wird. Die Fehlermeldung erscheint dann wie ge- 
wohnt in der Statuszeile. 


Das nächste Problem besteht darin, daß nicht jeder Graphikadapter 
über ein ROM-BIOS mit den nötigen Zeichensätzen verfügt. Deshalb 
werden insgesamt vier verschiedene Fonts mitgeliefert, jeweils ein 
Font mit einer Zeichenhöhe von acht (etwa für CGA), zwölf Zeilen 
(Hercules u.a.), 14 Zeilen (EGA u.a.) und 16 Zeilen (VGA u.a.). Na- 
türlich kann im Prinzip jeder Zeichensatz auf jedem Adapter genutzt 
werden. Die angegebene Zuordnung ist nur eine Empfehlung, mehr 
nicht. 


Damit die monochromen Graphikmodi nicht allzu negativ ab- 
schneiden, sind sie so programmiert, daß zwei verschiedene Fonts 
genutzt werden. Dies hat darin seinen Grund, daß der monochrome 
Textmodus (vergl. Kapitel 7) mehrere ’Farben’, sprich: Darstellungs- 
arten kennt. Allein die Unterstrichene fällt bei der TGV unter den 
Tisch. Der Normaldarstellung entspricht bei der TGV die Darstellung 
in Weiß auf Schwarz mit einem mageren Font, der Hervorgehobe- 
nen dasselbe mit dem fetten Font. Die inverse Darstellung gibt es 
auch in der Graphik. Allein die Mühe, die unterstrichene Darstel- 
lung im Graphikmodus nachzubilden, habe ich gescheut. 


Graphikfähigkeiten 


Es bleibt natürlich noch die Aufgabe, den View-Objekten tatsächli- 
che Graphikfähigkeiten einzuhauchen. Bisher kann die Vision ja 
noch nicht mehr als im Textmodus, und sie präsentiert sich auch 
nicht anders, abgesehen davon, daß eventuell ein anderer Font be- 
nutzt wird und der Bildschirm unter Umständen mehr Zeilen auf- 
weist. 


Wie schon gesagt, wird jedes beliebige (sichtbare) Vision-Objekt 
zum echt graphischen Objekt, indem die entsprechende Zustands- 
flagge gesetzt wird. In diesem Fall ruft 'writeview’ die (neue) tView- 
Methode ’PaintBits’ auf, damit das Objekt sich auf den Bildschirm 
zeichnen kann. Um zu demonstrieren, wie so etwas funktionieren 
kann, habe ich ein von ZScroller abgeleitetes Objekt mit dieser Fä- 
higkeit ausgestattet. Das Programm TGVDEMO.EXE zeigt ein sol- 
ches tGraphScroller-Objekt, wenn man eine Windows-Bitmap-Datei 
(.BMP) lädt. 
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Weitere Features 


Nebenbei wurde die ja sowieso schon erheblich modifizierte Turbo- 
Vision noch mit einem Bildschirmschoner versehen. Wer viel pro- 
grammiert, hat sich vielleicht (wie ich) schon geärgert, daß die 
Turbo-Pascal-IDE keinen solchen Bildschirmschoner besitzt - und 
das, obwohl der Aufwand, einen solchen in die Turbo-Vision (bzw. 
TGV) zu implementieren, minimal ist. 


Geschwindigkeit 


Damit die neue Vision wirklich nutzbar ist, muß die Ausgabege- 
schwindigkeit natürlich gewissen Anforderungen genügen. (Ich ha- 
be die TGV auf einem 80386SX mit nur 16 MHz Taktfrequenz ent- 
wickelt und die Geschwindigkeit als ausreichend empfunden.) 


Um eine solche Geschwindigkeit zu erreichen, ist es jedoch not- 
wendig, in Assembler zu programmieren und die Register der Gra- 
phikkarten direkt anzusprechen. Dies ist auch deshalb unumgäng- 
lich, da das BIOS (der EGA-/VGA-Karte) leider in den Graphikmodi 
keine Möglichkeit bietet, Text mit frei wählbarer Vorder- und Hin- 
tergrundfarbe auszugeben. Wer die Routinen der Graphiksteuerung 
verstehen will, sollte sich deshalb vorher mit den EGA-/VGA-Regi- 
stern vertraut gemacht haben, z.B. in dem er ein wenig in Kapitel 
8.2 schmökert. 


Ich habe die Routinen einige Male überarbeitet und vereinfacht. Si- 
cherlich bin ich in dieser Hinsicht noch nicht an das Ende aller 
Weisheiten vorgedrungen. Das Entscheidende an der hier vorge- 
stellten Version ist aber meines Erachtens auch nicht Perfektion im 
letzten Detail, sondern das Konzept, wie man der Turbo Vision bei- 
bringt, sich graphisch darzustellen, ohne daß dadurch aller bereits 
erstellte Turbo-Vision-Quelltext neu überarbeitet werden muß. Und 
dies kann eben nicht anders erreicht werden als dadurch, daß alle 
bereits vorhandenen Draw-Methoden so übernommen werden, wie 
sie sind. Dies bedeutet, daß jede beliebige Applikation im Prinzip 
sofort die TGV nutzen kann. Allein die in ihr enthaltenen ’uses’An- 
weisungen sollten komplett auf die neuen Units umgeschrieben 
werden. Die einzigen Units, die hiervon unberührt bleiben, sind 
solche, die weder direkt noch indirekt auf die UNIT VIEWS oder die 
UNIT DRIVERS zugreifen, d.h. OBJECTS, MEMORY, HISTLIST und 
VALIDATE. 
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Die TGV entsteht durch einige Änderungen an den UNITS VIEWS, 
DRIVERS und APP, durch eine kleine Modifikation im Modul 
SYSINT.ASM und durch Hinzunahme der UNIT TVGRAPH (und evtl. 
der UNIT TVBITMAP). Die Turbo-Pascal-Unit GRAPH wird nicht 
verwendet. Natürlich kann man sie im Prinzip verwenden, aber er- 
stens widerspricht das der Idee einer schnellen graphischen Ausga- 
be und zweitens dem Konzept der TV/TGV, da die Textausgabe 
praktisch ausschließlich über WriteBuf/WriteLine erfolgt und diese 
Textpuffer des Inhalts [Zeichen, Attribut, Zeichen, Attribut...] benut- 
zen, die es erforderlich machen, die Farbe u.U. nach jedem Zeichen 
umzuschalten. 


Das einzige, wo man die UNIT GRAPH in diesem Rahmen 
(vielleicht) sinnvoll einsetzen könnte, wäre innerhalb der neuen 
Methode tView.Paintbits. Doch auch hiervon rate ich ab. Ich halte 
es in jedem Fall für sinnvoll, die Graphikausgabe der ’echt graphi- 
schen’ Objekte, d.h. solcher, deren StatusBit sfgraphical gesetzt ist, 
über einen Puffer vorzunehmen, wie in dem Beispielprogramm 
TGVDEMO.PAS gezeigt wird. In diesem Fall hilft die UNIT GRAPH 
aber nicht weiter, da sie (leider) keine Möglichkeit bietet, die Gra- 
phikfunktionen auf einem Puffer arbeiten zu lassen. Es bleibt einem 
also wahrscheinlich nichts anderes übrig, als die evtl. benötigten 
graphischen Funktionen (wie ’ellipse’, ’arc’ u.s.w. ) selbst zu imple- 
mentieren. Da dies aber nicht zum engeren Konzept der TGV ge- 
hört und auch sicherlich den Umfang dieses Buches sprengen 
würde, werde ich nur eine ’Line’-Routine vorstellen. 


Die graphische Textausgabe der TGV wurde für die 16-Farben-Modi 
der EGA- und VGA-Karte zum einen und für die monochromen 
Graphikkarten zum anderen sehr unterschiedlich realisiert. Die 16- 
Farben-Lösung arbeitet grundsätzlich mit einem Font, die mono- 
chrome Lösung mit zwei Fonts: einem normalen (fetten) und einem 
mageren. Auf diese Weise lassen sich auch auf monochromen Gra- 
phikkarten die Hervorhebungen realisieren, die im Textmodus 
durch die erhöhte Intensität erreicht werden. Allein auf die Mög- 
lichkeit der Unterstreichung wurde - wie erwähnt - verzichtet, so 
daß der monochrome Modus der TGV im Prinzip vier ’Farben’ oder 
bessere Darstellungsarten kennt: Die normale und die invertierte je- 
weils mit dem mageren oder dem fetten Zeichensatz. Um den Zei- 
chensatz umschaltbar zu machen, ohne die graphische Ausgabe we- 
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sentlich zu verlangsamen, wird ein String im Gegensatz zu den 
Farbmodi nicht zeichen-, sondern zeilenweise ausgegeben. Der Vor- 
teil ist vor allem der, daß die Berechnung des nächsten Zeilenoffsets 
jeweils erst nach einer Zeile und nicht nach jedem Buchstaben zu 
erfolgen braucht, da diese Berechnung bei der CGA und der 
Herculeskarte wesentlich aufwendiger ist als bei der EGA-/VGA- 
Karte. Um die zeilenweise Ausgabe weiter zu verbessern und zu be- 
schleunigen, wird ein (durchaus legitimer) Trick angewandt: Der 
Zeichensatz selbst wird nicht zeichen-, sondern zeilenweise abge- 
speichert. Damit entfällt die ebenfalls aufwendige Berechnung des 
Zeichenoffsets. Zur Verdeutlichung: Ein Font mit 16 Zeilen wird 
normalerweise in folgendem Format gespeichert: 


tFont = Array[0..255,0..15] of byte; 


Stellt die Unit TVGRAPH nun fest, daß eine monochrome Graphik- 
karte vorliegt, so wird der Font umsortiert: 


tFont = Array[0..15,0..255] of byte; 


Somit stellen die ersten 256 Byte der Fontdaten die jeweils erste 
Zeile der Bitmuster aller ASCII-Zeichen dar, die 256 Byte ab Offset 
256 die zweite Zeile. 


Die Zeichenausgabe wird dann sehr einfach, wenn diese Zeilenda- 
ten über DS:BX adressiert werden, da ein ASCII-Zeichen in AL mit 
dem Befehl XLAT sofort durch das Bitmuster der entsprechenden 
Zeile des Zeichens ersetzt wird. Von einer Zeile zur nächsten muß 
dann nur noch BX durch BX+256 ersetzt werden. Steht der Offset 
eines zweiten Fonts in DX, so läßt sich der Font sofort durch den 
Befehl xchg BX, DX umschalten. 


Bei den Farbgraphikadaptern ist diese Methode nicht so günstig, da 
erstens das DX-Register zur Portadressierung benötigt wird und 
zweitens, weil die aufwendige Umwandlung des Attributbytes in 
Vorder- und Hintergrundfarbe sonst zu oft vorgenommen werden 
müßte. Zudem ist die Berechnung des Zeilenoffsets bei EGA und 
VGA denkbar einfach. Ein weiterer Grund, die Ausgabe bei EGA 
und VGA zeichenweise vorzunehmen besteht darin, daß diese Kar- 
ten einige Fonts über ihr ROM-BIOS zur Verfügung stellen. Ein Um- 
sortieren - das ja nur bei einer Kopie des Zeichensatzes erfolgen 
könnte - würde hier somit zusätzlichen Speicher beanspruchen, der 
sonst frei bliebe, während für die monochromen Graphikmodi von 
CGA und HGC der Zeichensatz sowieso von der Platte geladen 
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werden muß. (Beim CGA-Adapter wird ausschließlich der 
’hochauflösende’ monochrome Modus sechs mit 640 mal 200 Bild- 
punkten benutzt. Der Farbmodus ist aufgrund seiner elend schlech- 
ten Auflösung untauglich). 


Die Textausgabe in Farbe erfolgt über den EGA-/VGA- Schreibmo- 
dus zwei. In diesem Modus interpretiert der Adapter die Daten, die 
vom Prozessor kommen, als Farbwerte. Die Bitmuster werden über 
das Bit-Mask-Register (vergl. Kapitel 8.2) erzeugt. 


(Bei der VGA-Karte wäre zwar im Prinzip auch die Nutzung des 
Schreibmodus drei möglich, jedoch ohne nennenswerten Vorteil.) 


Bei der EGA- und VGA-Karte muß stets beachtet werden, daß zum 
Setzen der zweiten Farbe (d.h. der Hintergrundfarbe, wenn die 
Vordergrundfarbe zuerst gesetzt wurde) zuerst ein Lesezugriff zu er- 
folgen hat, damit die Latchregister geladen werden. Wird dies nicht 
beachtet, so wird die zuerst gesetzte Farbe überschrieben. 


Die Turbo-Graphics-Vision (TGV): Das Kochrezept 


Ich werde im folgenden alle Modifikationen und Änderungen be- 
schreiben, die an den Turbo-Vision-Units - insbesondere DRIVERS, 
VIEWS und APP - vorgenommen werden müssen, um zur TGV zu 
gelangen. Diese Änderungen sollten buchstäblich vorgenommen 
werden, da das Ergebnis sonst unvorhersehbar ist. 


Der erste Schritt besteht für denjenigen, der die RTL-Diskette noch 
nicht auf der Festplatte installiert hat, natürlich darin, dies erst ein- 
mal zu tun. Im folgenden Schritt ist ein neues Verzeichnis (z.B. 
C:\BP\TGV) anzulegen, alle Units der TV außer OBJECTS, ME- 
MORY, HISTLIST und VALIDATE in das neue Verzeichnis zu kopie- 
ren und folgendermaßen umzubenennen: 


VIEWS => GVIEWS 
DRIVERS => _GDRIVERS 
APP => _GRAPHAPP 
U.S.W. 


Das Umbenennen schließt natürlich ein, in allen UNITS die 'uses’- 
Anweisungen im Interface und Implementationsteil auf die neuen 
Namen zu setzen. (Wenn dies getan ist, so kann man sich davon 
überzeugen, daß keine der ’alten’ Units benutzt wird, indem man 
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ein Minimalprogramm, das alle Units benutzt, compiliert und sich 
dabei vergewissert, daß keine alte TV-Unit erneut compiliert wird.) 


Das gleiche wird mit der Assembler-Datei SYSINT.ASM (=> 
GSYSINT.ASM) gemacht. Das impliziert natürlich, daß die Linker- 
Anweisung in der UNIT GDRIVERS aus GSYSINT geändert werden 
muß. 


Als nächstes sollte man die mitgelieferten Dateien und Units zur 
TGV von der beiliegenden Diskette in das neue Verzeichnis kopie- 
ren. 


14.2.1 Die Änderungen an der UNIT DRIVERS 
Folgende Schritte sind an der Unit GDRIVERS vorzunehmen: 
1) Ersetzen des tEvent der UNIT DRIVERS durch den folgenden 
- leicht modifizierten - Record: 


TEvent = record 
What: Word; 
case Word of 
evNothing: (); 
evMouse: ( 
Buttons: Byte; 
Double: Boolean; 
Where: TPoint; 
{*} 
GraphWhere:TPoint); 
{*)} 
evKeyDown: ( 
case Integer of 


{ wie in der TV } 


Ü...} 


end; 
2) Einfügen der globalen Variablen: 


LastEventTime:Longint; 
(etwa hinter der Deklaration der ’CursorLines’) 


4) Einfügen der Anweisung ’USES TVGRAPH’ im Implementations- 
teil. 


5) Modifikationen der Prozeduren 
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StoreEvent, GetMouseState, Mouselnt, InitEvents, 
GetMouseEvent, GetKeyEvent, DoneVideo, SetVideoMode, 
ClearScreen: 

Die Änderungen an den Event-Routinen sind zum einen durch 
die Notwendigkeit gegeben, die graphischen Mauskoordinaten 
zugänglich zu machen, zum anderen ermöglichen sie den Bild- 
schirmschoner. 


procedure StoreEvent; near; assembler; 


const GX = - 2; { Lokale Variablen für die Mauskoordinaten } 
GY=-4 
Event = 6; 
asm 
LES DI,DWORD [BPJ.Event 
CLD 
STOSW 
XCHG AX,BX 
STOSW 
XCHG AX,CK 
STOSW 
XCHG AX,DX 
STOSW 
MOV AX,[BP].GX { Die graphischen Mauskoordinaten speichern } 
STOSW 
MOV AX,[BP].GY 
STOSW 
end; 


procedure GetMouseState; near; assembler; 


const 6X = - 2; 
Y=-4 
Event = 6 
asm 
CLI 
CMP EventCount,,0 
JNE @@1 
ger) 


MOV AX ‚MouseGraphihere..X 
MOV [BP].GX,AX 
MOV AX ‚MouseGraphkhere.Y 
MOV [BP].GY,AX 


MOV BL ,‚MouseButtons 

MOV CX ‚Mousekhere .Word[0] 
MOV DX ‚MouseWhere..Word[ 2] 
MOV ES,Seg0040 

MOV DI,ES:Ticks 
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JMP @@3 
@@1: MOV SI,EventQHead 

CLD 
LODSW 
XCHG AX,DI 
LODSW 
XCHG AX,BX 
LODSW 
XCHG AX,CKX 
LODSW 
XCHG AX,DX 

ee) 
PUSH AX 
LODSW 
MOV [BPJ.CX,AX 
LODSW 
MOV [BPJ.GY,AX 
POP AX 

er) 
CMP SI,OFFSET EventQLast 
JNE @@2 


MOV SI,OFFSET EventQueue 
@@2: MOV EventQHead,SI 
DEC EventCount 


@@3: STI 
CMP MouseReverse, 0 
JE 084 
MOV BH,BL 
AND BH,3 
JE @@4 
CMP BH,3 
JE @@4 
XOR BL,3 

@@4: 

end; 


{ Diese Routine wird vom Maustreiber aufgerufen, sobald die Maus 
bewegt wird, oder eine Taste gedrückt wurde. Die Graphikkoordinaten 
der Maus werden in der globalen Variablen MouseGraphhkhere (tPoint) 
abgelegt. Die Zeit des Events wird (für den Bildschirmschoner) in 
der Variablen 'Lasteventtime' festgehalten. } 


procedure Mouselnt; far; assembler; 
asm 
MOV SI,SEG @DATA 
MOV DS,SI 
MOV MouseGraphkhere.X,CX 
MOV MouseGraphkhere.Y,DX 
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MOV SI,CX 

MOV CL,3 

SHR SI,CL 

CMP GraphPlanes,0 

JE eeTl 

XCHG AX,DX 

DIV CharHeight.BYTE[O] 
XOR AH,AH 

XCHG DX,AX 

JMP eeGl 


@@T1:SHR DX,CL 

@@G1 :MOV MouseButtons ‚BL 
MOV MouseWhere.X,SI 
MOV Mousekhere.Y,DX 
TEST AX,11110B 


JE @@2 
CMP EventCount, EventQSize 
JE @@2 


MOV ES, Seg0040 
MOV AX ES: Ticks 
MOV DI,EventQTail 


PUSH DS 
POP ES 
CLD 
STOSW 
XCHG AX,BX 
STOSW 
XCHG AX,SI 
STOSW 
XCHG AX,DX 
STOSW 
{*) 
MOV AX ‚MouseGraphkhere.X 
STOSW 
MOV AX ‚MouseGraphhihere..Y 
STOSW 
{*) 
CMP DI,OFFSET EventQLast 
JNe e@1 


MOV DI,OFFSET EventQueue 
@@1: MOV EventQTail,DI 
INC EventCount 
@@2: MOV MouselntFlag,1 
* 
MOV ES,SEGO040 
MOV AX ES: [$6C] 
MOV LastEventTime.word[0], ax 
MOV AX ‚ES: [$6E] 
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iS} 


end; 


MOV 
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LastEventTime.word[2]. ax 


procedure InitEvents; assembler; 


asm 


eetl: 
@@G1: 


@@1: 
end; 


XOR 
CMP 
JE 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
INT 
MOV 
MOV 
MOV 
MOV 


AX,AX 

AL ‚ButtonCount 

@@1 

DownButtons ‚AL 
LastDouble, AL 
EventCount ,AX 

AX ‚OFFSET DS: EventQueue 
EventQHead,‚AX 
EventQTail,AX 

AX,3 

33H 
MouseGraphhhere.X,CX 
MouseGraphkhere.Y,DX 
LastGraphhhere.X,CX 
LastGraphWhere.Y,DX 
AX,CK 

CL,3 

AX,CL 

GraphPlanes,O 

@@Tl 

AX,DX 
CharHeight.BYTE[O] 
AH,AH 

DX,AX 

eaGl 

DX,CL 
MouseButtons ‚BL 
MouseWhere.X,AX 
Mousekhere.Y,DX 
LastButtons,BL 
LastWhere.X,AX 
Lastwhere.Y,DX 
AX,12 

CX ,OFFFFH 

DX OFFSET CS:Mouselnt 
cS 

ES 

33H 

A,1 

33H 

MouseEvents ‚1 
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{ Die Prozedur stellt u.a. fest, wann ein Doppelklick auftrat. Da ein 
Doppelklick nur im Textraster Sinn macht, muß hier nur wenig geän- 


dert 


werden. } 


procedure GetMouseEvent(var Event: TEvent); 
var GX,GY:Word: 


begin 
asm 
CMP 
JE 
CALL 
MOV 


@@1: CMP 


882: XOR 


883: MOV 


MouseEvents,0 
@@2 

GetMouseState 
BH,LastDouble 
AL ‚LastButtons 


BL,AL 
CX,‚LastWhere.X 
@@6 
DX,Lastkhere.Y 
@@6 

BL,BL 

@@2 

AX,DI 

AX ‚AutoTicks 
AX ,AutoDelay 
007 

AX,AX 

BX,AX 

CX,AX 

DX,AX 

GX,AX 

GY,AX 

@@9 

BH,0 

BL ,DownButtons 
@@4 

CX ‚DownWhere.X 
@@4 
DX,‚DownWhere.Y 
a4 

AX,DI 
AX,DownTicks 
AX ‚DoubleDelay 
@@4 

BH,1 
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@85: 


@@6: MOV 


@@7: MOV 


@@8: MOV 


ve 


er 


@@9: CALL 


end; 
end; 


MOV DownButtons ‚BL 


Downkhere.X,CX 
Downkhere.Y,DX 


AX.CX 


DownGraphlhere..X,AX 


AX,GY 


DownGraphkhere.Y,AX 


DownTicks,DI 
AutoTicks,DI 
AX ‚RepeatDelay 
AutoDelay,AX 
AX ,evMouseDown 
a8 

AX ‚evMouseUp 
@@8 

AX ‚evMouseMove 
@@8 
AutoTicks,DI 
AutoDelay,l 

AX ‚evMouseAuto 
LastButtons,‚BL 
LastDouble,BH 
LastWhere.X,CX 
Lastkhere.Y,DX 


AX 
AX,CX 


LastGraphhhere.X,AX 


AX,GY 


LastGraphWhere.Y,AX 


AX 


StoreEvent 
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{ Diese Routine erhält nur die beiden Variablen GX und GY verpaßt. } 


procedure GetkeyEvent(var Event: TEvent); 


var GX,GY:Word; 


begin 
asm 


MOV 
INT 
MOV 
MOV 
JE 


AH,1 
16H 
AX,0 
BX,AX 
@@1 
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MOV AH,0 
INT 16H 
XCHG AX,BX 


MOV AX ,evKeyDown 
@@1: XOR CX,CX 

MOV DX,CX 

CALL StoreEvent 
end; 
end; 


{ In die Routinen DoneVideo/SetVideoMode wird ausschließlich die 

Zeile "CALL LEAVEGRAPH' als erste Anweisung eingefügt. } 

procedure DoneVideo; assembler; 

asm 
Call LeaveGraph 
I: 


end; 


procedure SetVideoMode(Mode: Word); assembler; 
asm 

CALL LeaveGraph 

(...} 


end; 


{ Die Prozedur ClearScreen wird nur durch folgende Anweisung 
umklammert: } 


procedure ClearScreen; 
begin. 
if GraphPlanes=0 then 
asm 
MOV AX ,600H 
(...} 
CALLVideoInt 
end else ClearDevice; 
end; 


6) Ersetzen der zu linkenden Assembler-Datei SYSINT.OBJ / 
SYSINT.OBP durch GSYSINT.OBJ / GSYSINT.OBP. 


7) Ergänzen von der Funktion SystemError. 


function SystemError(ErrorCode: Integer; Drive: Byte): Integer; 
var 

C: Word; 

P: Pointer; 

S: string[63]; 

B: array[0..79] of Word; 
begin 


14.2 Die Turbo-Graphics-Vision (TGV): Das Kochrezept 375 


14.2.2 


if FailSysErrors then 
begin 
SystemEerror := 1: 
Exit; 
end; 
{*)} 
LeaveGraph; 


* 
if Lo(ScreenMode) = smMono then 
end; 
8) Ergänzen der Prozedur ’ExitDrivers’ durch den Aufruf von 
’LeaveGraph'’: 


procedure ExitDrivers; far; 
begin 
LeaveGraph; 


a: 


end; 


Modifikationen an dem Modul SYSINT.ASM: 

Diese Modifikationen sind allein für den Bildschirmschoner not- 
wendig: 

1) Ändern der Deklaration der globalen, externen Variablen: 


EXTRN LastEventTime:DWORD { Hinzufügen } 
EXTRN  Seg0040::WORD 
{ Ändern, da sonst nur bei DPMI deklariert } 


2) Ändern der ersten paar Zeilen der Prozedur Int09, damit der 
Bildschirmschoner auch bei Tastatur-Ereignissen wieder ausge- 
schaltet wird. 


Int09Handler: 
PUSH DS 
PUSH DI 
PUSH AX 


„erkkk Den aktuellen Zählerstand des Timers in die Variable 
„trkk LastEventTime übertragen: 


PUSH ES 

PUSH SI 

MOV AX ‚SEG DGROUP 
MOV DS,AX 

MOV ES,AX 


MOV DS,Seg0040 
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CLD 
MOV DI,OFFSET LastEventTime 
MOV SI,006Ch 
MOVSW 
MOVSW 
POP SI 
POP ES 
‚eerkk Fertig. Ab hier wieder original: 
MOV DI .,DS:KeyBufTail 
IN AL,60H 
MOV AH,DS:KeyFlags 
PUSHF 
CALL O1dInt09 
0...) 
14.2.3 Änderungen an der UNIT VIEWS 


Folgende Änderungen sind an der UNIT VIEWS vorzunehmen: 


1) Umbenennen in ’GVIEWS’ und Namen in der Deklaration än- 
dern. 

2) Ändern der 'Uses’-Anweisung auf GDRIVERS. 

3) Einfügen des neuen State-Flags im Interfaceteil: 


sfGraphical = $8000; 


4) Einfügen der zusätzlichen tView-Methode ’Paintbits’ als letzte 
Methode: 


procedure ResetCursor; virtual; 
public 

procedure PaintBits(x_abs.y_abs,x_rel,y_rel,count:word); virtual; 
end: 


5) Einfügen der Anweisung ’uses tvgraph’ in den Implementations- 
teil: 


implementation 
uses tvgraph; 


6) Einfügen der Compiler-Anweisung ’I$I Graphics’ in den Im- 
plementationsteil hinter die Deklaration der lokalen Variablen: 


CurCommandSet: TCommandSet = 
[0..255] - [cmZoom, cmClose, cmResize, cmNext, cmPrev]; 
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{$I Graphics} 


{ Convert color into attribute 


7) Modifizieren der Prozedur 'WRITEVIEW’ in folgender Weise: 


{W 
{In 
{ 

{ 


{ 


const 
self 
Target 
Buffer 
BufOfs 

Kol! 
MovMod 
Color 
Y_REL 


AX 
BX 
cxX 


rite to view 


= Y coordinate 


X coordinate 
Count 


ES:DI = Buffer Pointer 
procedure WriteView; near; assembler; 


e 


6; 
-4; 
-8; 

-10; 


-12; 
-14; 
= -16; 


{ VMT-Offset der Methode Paintbits: } 


tView_PaintBits = vmtHeaderSize + $4C; 


(er) 
asm 


@@31: 
@@40: 


{*} 
MOV 
{*} 
MOV 
MOV 
MOV 


bie} 
{ Mit dem Original identisch bis @@40: } 


[BP].Y_REL,AX 
[BP].BufOfs ‚BX 


[BP].Buffer[0],DI 
[BP].Buffer[2],ES 


DI ,ES:[DIJ.TView.Owner 


SI,ES:[DI].tGroup.Buffer..word[2] 


SI,SI 
0844 


SI,ScreenBuffer .word[2] 
@@400 

GraphPlanes,0 

@@41 


AX 


mu uno 
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88404: 


@8402: 


88403: 


@8405: 


@@400: 


8841: 


@@70: 


2} 


Sa 


MOV 
POP 
POP 
POP 
POP 
POP 
RET 


Fe 
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BX 
AX ‚Mousekhere.Y 
@@402 


@@402 

BX ‚MouseWhere.X 
@@403 

BX,2 

@@402 

CX ‚MouseWhere.X 
@@403 

BX 

MX 
MouselntFlag,0 
@@80 


MouselntFlag,0 


HideMouse 
@@80 


ShowMouse 
0844 


8850 
8044 


{ Von Label @@41 bis @@70 mit dem Original identisch } 
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@@80: 


@@801: 


@@Büc: 


88802: 


end; 


PUSH ES 
PUSH DI 
PUSH DX 
PUSH CX 

PUSH BX 

PUSH AX 

{ Aufruf von tView.PaintBits } 

LES DI,[BP].Self 

TEST ES:[DIJ.tView.state.sfgraphical 

jz @@801 

sub cx,bx 

push bx {=XAbs } 
push ax {=YABS} 
sub bx,[bp].bufofs 

push bx {=XREL} 
push word ptr [bp].y_rel {=YREL} 
push cx { = Count } 
push es {= SELF } 
push di 

mov di,es:[di] 

call dword ptr [di].tView_paintbits 
jmp @@802 

{ Aufruf von PaintChar/PaintBuf } 

push bx COX } 

push ax (Y } 

sub cx,bx { CX = X2 - X1 = Count } 
push cx {Count } 

cmp word ptr [bp].movmode ‚mm_chars 

je E@8oc 

LES DI.[BP].Buffer 

sub bx,[bp].bufofs 

sh] bx,1 

add di,bx { ES:DI = *Buffer } 

push es 

push di 

call PaintBuf 

jmp 88802 

PUSH word ptr [BP].Color { DL = Char, DH = Color 
call paintchar 

POP AX { Register restaurieren: } 
POP BX 

POP cx 

POP DX 

POP DI 

POP ES 

RET 

Fe 
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} 
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8) Modifizieren der Methode ’tView.ResetCursor’ ab dem lokalen 


Label @@5: 
u} 
@@5: MOV DH, AL 
XOR BH,BH 
MOV AH,2 
(rk) 
cal] _cursorint_ah2 
ge) 
MOV CX ‚CursorLines 
LES DI,Self 
TEST ES: [DI]. TView.State,sfCursorIns 
JE @@6 
MOV CH,0 
OR CL,CL 
JNE @@6 
MOV CL,7 
@@6: MOV AH,1 
E24 
call _eursorint_ahl 
ge) 
end; 


9) Modifizieren der tView-Methoden WriteBuf, WriteLine, WriteStr 
und WriteChar: 


procedure TView.WriteBuf(X, Y, W, H: Integer; var’ Buf); assembler; 
var 
Target: Pointer; {Variables used by WriteView} 
Buffer: Pointer; 
Offset: Word; 
er) 
MovMode : Word; 
Color : Word; 
Y_REL: Word; 
vr) 
asm 
ve} 
MOV MovMode ‚mm_buf 
) 
CMP H,0 
JLE @@2 


u 
{ wie Original } 


ae 
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JNE e@1 
@e2: 
end; 


procedure TView.WriteChar(X, Y: Integer: C: Char: Color: Byte; 
Count: Integer); assembler; 
var 
Target: Pointer; {Variables used by WriteView} 
Buffer: Pointer; 
Offset: Word; 
{er} 
MovMode : Word; 
TheColor: Word; 
Y_REL  : WORD; 
aid 
asm 
MOV AL,Color 
CALL MapColor 


ee} 
mov MovMode ‚mm_chars 
[*} 
MOV AH,AL 
MOV AL,C 
ee} 
MOV TheColor ,AX 
ee 
MOV CX ‚Count 
OR CX,CX 
JLE @@2 
CMP CX ‚256 
JLE e@1 
MOV CX ‚256 
@@]: (*} 
CMP GRAPHPLANES,, 0 
JNE @@3 
*} 
MOV DI,CX 
SHL DI,1 
SUB SP,DI 
MOV DI,SP 
PUSH SS 
POP ES 
MOV DX,CX 
CLD 
REP STOSW 
MOV CX,DX 
MOV DI,SP 


683: MOV AX,Y 
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MOV BX,X 
CALL WriteView 
@@2: 
end; 


procedure TView.WriteLine(X, Y, W, H: Integer; var Buf); assembler; 
var 
Target: Pointer; {Variables used by WriteView} 
Buffer: Pointer; 
Offset: Word: 
(er 
MovMode : Word; 
Color : Word; 
Y_REL : WORD; 
ve) 
asm 
{+**} 
MOV MovMode ‚mm_buf 
(rr) 


CMP H,0 


G.. 


procedure TView.WriteStr(X, Y: Integer; Str: String; Color: Byte); 
assembler; 
var 

Target: Pointer; {Variables used by WriteView} 

Buffer: Pointer; 

Offset: Word; 

er} 

MovMode : Word; 

TheColor: Word; 


Y_ReL  : Word; 
ie 
asm 

I] 
mov movmode ‚mm_buf 
ar 
MOV AL,Color 
{...} 


14.2.4 Modifikationen der UNIT APP 


1) Umbenennen in GRAPHAPP und Namen in der Deklaration än- 
dern 


2) Ändern der ’Uses’-Anweisung auf folgende Zeile: 
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uses Objects, gDrivers, Memory, HistList, gViews, gMenus, gDialogs:; 


3) Einfügen einer Verzögerungszeit-Variablen für den Bildschirm- 
schoner in den Interfaceteil: 


const 
{ Knapp drei Minuten Verzögerung für Bildschirmschoner } 
Sparingbelay : word = 3000; 


4) Einfügen einer Befehlskonstanten für den Wechsel des Bild- 
schirmmodus: 


cmSwapGraph = 1001; 
5) Einfügen der folgenden tProgram-Methoden: 
function ValidView(P: PView): PView; 


{ Proceduren/Funktionen des Bildschirmschoners: } 
Function SparingOn:Boolean; virtual: 


Procedure Init_Sparer; virtual; 

Procedure Exec_Sparer:; virtual; 

Procedure Done_Sparer:; virtual; 
end; 


Function tProgram.SparingOn:Boolean; 

begin 

SparingOn:=MemL[Seg0040:$6C] > LastEventTime + SparingDelay; 
end; 


Procedure tProgram.Init_Sparer; 
begin 

HideCursor; 

HideMouse; 

ClearScreen; 

end; 


Procedure tProgram.Exec_Sparer; 
const LastTime:Longint=0; 
S:String = "Copyright (C) Christian Baumgarten, Hamburg 1993"; 


X:Word = 0; 
Y:Word = 0; 
Color:Byte = 0; 

begin 

if MemL[Seg0040:$6C] > LastTime + 10 then 

begin 

LastTime:=MemL[Seg0040:$6C]; 
ClearScreen; 


X:=(X+1) mod screenwidth; 
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Y:=(Y+1) mod screenheight; 
Color:=(Color + 1) mod 15; 
PaintStr(X,Y,Color+1,S); 
end; 

end; 


Procedure tProgram.Done_Sparer; 
begin 

ShowMouse;; 

ShowCursor; 

end; 


6) Einfügen der folgenden Far-Prozeduren in den Implementations- 
teil, vor die tProgram-Methoden: 


procedure AppGraphlnit; far; 
var R:TRECT; 
I:word; 
begin 
if OldGraphInit<s>nil then 
asm 
call dword ptr oldgraphinit 
end; 
with Application“ do 
begin 
DoneMemory ; 
InitMemory; 
ShadowSize.X := 0: 
ShadowSize.Y := 0; 
if GraphMaxPlanes=4 then 
begin 
ShowMarkers := False; 
AppPalette := apColor: 
end else 
begin 
ShowMarkers := True; 
AppPalette := apMonochrome ; 
end; 
Buffer:=ScreenBuffer; 
R.Assign(0, 0, ScreenWidth, ScreenHeight); 
ChangeBounds(R); 
HideCursor; 
ShowMouse ; 
end; 
Application“.Redraw; 
end; 
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procedure AppGraphExit; far: 
var R:TRECT; 
begin 
if OldGraphExit<>nil then 
asm 
call dword ptr oldgraphexit 
end; 
DoneMemory ; 
InitMemory; 
with Application“ do 
begin 
InitScreen; 
Buffer :=ScreenBuffer; 
R.Assign(0, 0, ScreenWidth, ScreenHeight); 
ChangeBounds (R); 
HideCursor; 
ShowMouse; 
end; 
Application“ .Redraw; 
end; 


7) Einfügen der folgenden Zeilen in den Implementationsteil: 
uses Dos,tvgraph; 


const 
OldGraphlInit:pointer=nil; 
OldGraphExit:pointer=nil; 


8) Modifizieren des Konstruktors von tDesktop: 


constructor TDesktop.Init(var Bounds: TRect); 
begin 

inherited Init(Bounds); 

*) 

options:=options and not ofbuffered; 

{*) 

GrowMode := gfGrowHiX + gfGrowHiY; 

U} 


9) Modifizieren der Konstruktors von tProgram: 


constructor TProgram.Init; 

var 
R: TRect; 

begin 
{*} 
LastEventTime:=MemL[Seg0040:$6C]: 
OldGraphlinit:=Graphlnit; 
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GraphInit:=@AppGraphlnit; 
OldGraphExit:=GraphExit; 
GraphExit:=@AppGraphExit; 


ie} 
Application := @Self; 
Be 
10) Einfügen der folgenden Zeilen in tProgram.Idle: 
* 
if SparingOn then 
begin 


Init_Sparer; 

While SparingOn do Exec_Sparer; 
Done_Sparer; 

Application“ .Redraw; 
end; 

ei 


end: 
11) Modifizieren von tProgram.PutEvent: 


procedure TProgram.PutEvent(var Event: TEvent); 
begin 

Pending := Event; 

LastEventTime :=MemL[Seg0040:$6C]; 
end; 


12) Einfügen der Methode tProgram.SwapGraph: 


procedure TProgram.SwapGraph; 
begin 

if Graphplanes=0 then EnterGraph else LeaveGraph; 
end; 


13) Modifizieren der tApplication-Methode DosShell: 


procedure TApplication.DosShell; 
var WasGraph:Boolean; 
begin 
WasGraph ::=GraphPl anes<>0; 
DoneSysError; 
DoneEvents; 
DoneVideo; 
DoneMemory; 
DoneDosMem; 
WriteShel1Msg; 
SwapVectors; 
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Exec(GetEnv( 'COMSPEC'), ''); 
SwapVectors; 
InitDosMem; 
InitMemory; 
InitVideo; 
InitEvents; 
InitSysError; 
if WasGraph then SwapGraph: 
Redraw; 
end; 


14) Einfügen des Befehls cmSwapGraph in die Methode tApplica- 
tion.HandleEvent: 


case Event.Command of 
cmTile: Tile; 
cmCascade: Cascade; 
cmDosShell: DosShell; 
cmSwapGraph:SwapGraph; 
else 


15) Modifizieren der Funktion StdStatusKeys: 


function StdStatusKeys(Next: PStatusItem): PStatusItem; 
begin . 
StdStatuskeys := 
NewStatusKey('-Alt-X- Exit’, kbAltX, cmQuit, 
NewStatusKey('', kbF10, cmMenu, 
* 
NewStatusKey('-F9- Graphik Ein/Aus’, kbF9,cmSwapGraph, 
{*} 
NewStatusKey('', kbAltF3, cmClose, 
NewStatuskey('', kbF5, cmZoom, 
NewStatuskey(''. kbCtrIF5. cmResize, 
NewStatuskey(''. kbF6, cmNext, 
NewStatusKey('', kbShiftF6, cmPrev, 
Next))))))); 
end; 


16) Entfernen der Zeile ’Application:=nil;’ aus dem Destruktor von 
tProgram und Einfügen dieser Zeile an das Ende des Destruk- 
tors von tApplication. Dieser Punkt ist wichtig, da sich der 
Computer sonst beim Beenden des Programms aufhängt. 
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14.3 Die TGV - UNIT TVGRAPH 
14.3.1 Einführung 


Wenn man die Zutaten zur TGV nach dem Kochrezept gemixt hat, 
hat man leider noch immer keine TGV. Die wesentlichen Routinen 
stecken samt und sonders in der UNIT TVGRAPH. Hier findet sich 
die Bildschirmausgabe für die verschiedenen Graphikkarten, die Ini- 
tialisierung der FONTS - und der Vorläufer des ersten echt graphi- 
schen Objekts der TGV, das Objekt TGraphImage. Von ihm wird in 
der UNIT TBITMAPS das Objekt tBitImage abgeleitet. Es dient zur 
Aufnahme einer Windows-Bitmap-Datei (BMP-Datei). 


Aber nun erst zur UNIT TVGRAPH und der eigentlichen Organisa- 
tion der Bildschirmausgabe. Das erste Problem bei einer schnellen 
graphischen Textausgabe liegt in der Adressierung von drei Varia- 
blen bei einer CPU, die im Prinzip nur für jeweils zwei Operanden 
ausgelegt ist. Drei Variablen deshalb, weil ein Textpuffer mit Hilfe 
eines Fonts in den Graphikspeicher geschrieben oder 'übersetzt’ 
werden muß. 


Natürlich ließen sich die Adressen jeweils neu laden, doch dies wä- 
re (insbesondere im Protected Mode) zu zeitaufwendig. Somit bleibt 
als einzige Alternative die Adressierung einer Variablen über das 
Stacksegment. Hierbei kann es sich nur um den Textpuffer handeln, 
da dieser ja meistens schon auf dem Stack lokalisiert ist, wenn es 
sich um einen tDrawBuffer in einer '’Draw’-Methode handelt. Den- 
noch wird dies von den Ausgaberoutinen stets überprüft. Liegt der 
Textpuffer einmal nicht im Stacksegment, so wird er dorthin kopiert. 
Das Registerpaar ES:DI wird zur Adressierung des Bildspeichers ver- 
wendet, so daß für den Font nur noch DS:Offset übrigbleibt. Dies 
ist - wie bereits erwähnt - für die monochrome Ausgabe gerade 
recht, da hier mit dem Befehl XLAT gearbeitet wird und natürlich 
bei den Farbroutinen auch nicht schädlich. Das einzige, was in die- 
sem Fall genau beachtet werden muß, ist, daß globale Variablen 
nicht mehr adressierbar sind, sobald der Font adressiert wird. Dies 
erzwingt teilweise ein Übertragen der einen oder anderen globalen 
in lokale Variablen, die ja über SS:BP stets erreichbar sind. Um nicht 
alle möglichen Code-Fragmente mehrfach für verschiedene Gra- 
phikadapter implementieren zu müssen, werden bestimmte Aufga- 
ben - wie die Berechnung des Bildschirmoffset - durch lokale als 
NEAR deklarierte Routinen erledigt, deren Offset dann in globalen 
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Variablen notiert wird. Diese Routinen (_getcgaoffs, _gethgcoffs, 
_getvgaoffs etc.) arbeiten der Geschwindigkeit halber nur mit den 
CPU-Registern als Variablen für Input und Output. Auf diese Weise 
ist es möglich, die gleichen Ausgaberoutinen für die monochromen 
Modi von CGA, HERCULES und MCGA zu verwenden. Um die Be- 
rechnung des Bildschirmoffset möglichst einfach zu gestalten, wird 
diese bei jeder Textausgabe nur einmal vorgenommen. Bei der je- 
weils folgenden Scanzeile wird nur die Differenz neu berechnet. 
Dies scheint nur bei der EGA-/VGA-Karte nahezuliegen, ist aber 
auch bei der HGC- und CGA-Karte recht einfach durchführbar, ob- 
wohl die Scanzeilen in verschiedenen Speicherblöcken liegen. Bei 
der Herculeskarte etwa ist der Offset der jeweils nächsten Zeile um 
genau 2000h Byte höher, es sei denn, der Offset ist bereits über 
6000h. In diesem Fall liegt er um 6000h-90d niedriger. (Für die 
CGA-Karte gilt im Video- Modus sechs entsprechend, daß der Offset 
der nächsten Zeile abwechselnd um 2000h höher bzw. um 2000h- 
80d niedriger ist.) 


Wichtig ist zudem das Verständnis einiger globaler Variablen, die in 
der UNIT TVGRAPH deklariert werden. So beinhaltet z.B. Graph- 
MaxPlanes die Information, ob die Graphikkarte mehrere Speicher- 
ebenen (d.h. Bits pro Pixel, d.h. Farben) benutzt. Sie wird bei der 
Unit-Initialisierung 'InitTVGraphics’ auf den korrekten Wert gesetzt. 
Die Variable Graphplanes hingegen beinhaltet die aktuelle Anzahl 
an Graphikebenen. Sie wird im Textmodus somit auf Null gesetzt. 
Sehr wichtig ist auch die Variable CharHeight, die die aktuelle 
Anzahl der Scanzeilen einer Textzeile wiedergibt. Sie wird beim 
Laden des Zeichensatzes initialisiert. Die Variable TheFont enthält 
die Adresse des aktuellen Zeichensatzes. Die Variablen Screenheight 
und Screenwidth, die in der UNIT DRIVERS bzw. GDRIVERS 
deklariert sind, enthalten nach wie vor die Bildschirmhöhe und 
Breite in Textzeichen. Die Variablen GraphMaxX und GraphMaxY 
hingegen beinhalten die maximalen Koordinaten des Graphikbild- 
schirmes. Graphdriver und Grapbmode beinhalten die Konstanten 
für Graphiktreiber und Videomodus (nicht zu verwechseln mit 
denen der UNIT GRAPH D. 


Natürlich werden auch einige Variablen für die Darstellung des Cur- 
sors benötigt, die aber nur deshalb im Interfaceteil deklariert sind, 
damit sie für die Cursorsteuerung in der UNIT GVIEWS erreichbar 
sind. Diese Variablen sind für den direkten schreibenden Zugriff ta- 
bu. Die Variablen MouseGraphWhere etc. ergänzen lediglich die 
entsprechenden Variablen der UNIT (G)DRIVERS für den Textmo- 
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dus und werden vom Eventmanager jeweils aktualisiert (vergl. vori- 
gen Abschnitt). 

Die eigentlichen Text-Ausgaberoutinen sind PaintChar, PaintStr 
und PaintBuf. Sie sind so ausgelegt, daß sie (z.B. vom Bildschirm- 
schoner) auch im Textmodus genutzt werden können, obwohl sie 
im Prinzip nur von der Routine writeview aufgerufen werden soll- 
ten, da die Bildschirmausgabe der Turbo-Vision ja stets über die 
tView-Methoden WriteChar, WriteStr und WriteBuf zu erfolgen hat. 
Dies gilt im übrigen auch für echt graphische Objekte. Ihre Ausgabe 
erfolgt nie direkt, sondern stets über diese drei Methoden. Damit 
ein echt graphisches Objekt auf dem Bildschirm ausgegeben wird, 
reicht es aus, daß die entsprechende Draw-Methode den gesamten 
vom Objekt beanspruchten Platz über WriteCchar, WriteStr oder 
WriteBuf ausfüllt und die tView-Methode Paintbits - die auch nie di- 
rekt aufgerufen wird - den entsprechenden Bereich korrekt darstellt, 
d.h. in der geeigneten Weise überschrieben wurde. (Ein entspre- 
chendes Beispiel hierfür findet sich in der UNIT TBITMAPS.) 


Die Koordinaten der PaintRoutinen - X und Y - sind übrigens je- 
weils Textkoordinaten. 


Die UNIT TVGRAPH enthält neben diesen Variablen und Methoden 
noch die Deklaration eines von tCollection abgeleiteten Graphikpuf- 
fers, das tGraphlmage-Objekt. An ihm und dem davon abgeleiteten 
Objekt tBitImage (UNIT TBITMAPS) soll beispielhaft verdeutlicht 
werden, wie in der TGV graphische Objekte definiert und genutzt 
werden können. Sie haben mit dem Kern der TGV jedoch nichts zu 
tun und können - je nach Aufgabenstellung - auch vollkommen an- 
dersartig realisiert werden. 

Die Kernpunkte der TGV sind damit besprochen. Was bleibt, ist der 
Quelltext in seiner vollen Schönheit und Länge. Ich habe mir Mühe 
gegeben, ihn ausreichend zu kommentieren und hoffe, daß mir das 
auch einigermaßen gelungen ist. 


Der Quelltext der UNIT TVGRAPH 


{ KRKTKHHHT IT HT HT TH TH TH TH HT HT HT HT HT T HT TTTTTTTITHTTH NE } 


{ Turbo Vision Graphik Unit } 
{ Copyright (c) Christian Baumgarten, Hamburg 1993 } 


{ ESS 1202 12 122 2 2 272 12 1272 2 272 2 272 2 2 22 2 2 2 212 2 212 2 2 2 2 22 22 2 2 2 2 zz 222 2 zn 22 2 2 212 212020200 } 


UNIT TVGRAPH: 
{$F+} 
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INTERFACE 
Uses Objects; 


const { Konstanten für verschiedene Graphikfonts: } 


Font8x8 = 8: 
Font8x12 = 12; 
Font8x14 = 14; 
Font8x16 = 16; 


{ Konstanten für EGA-/VGA-GetFontPtr-Routinen } 
GetRom8x14 


GetRom8x8 
GetRomdx16 = 


2; 
3; 
{ Graphikkarten-Konstanten: } 


CGA = 
MCGA = 
EGA = 
EGA64 

EGAMono 
HercMono 
VGA = 


U} 
ovST Pom+- 


{ Farbkonstanten für Text & EGA-/VGA-Graphik: } 


Black 

Blue 

Green 

Cyan 

Red 
Magenta 
Brown 
LightGray 
Gray 
LightBlue 
LightGreen 
LightCyan =]]; 
LightMagenta = 12; 
LightRed =13; 
Yellow = 14; 
White = 15; 


aaa a a am 


oo pwmwmro 


[} 
r 
o 


{ Portadressen der EGA-/VGA-Karte: } 


const _GCtri_ = $03CE; 
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$03C0; 
$03C4; 


_Actri_ 
_Sequ_ 


{ Registerindices der EGA-VGA-Karte: } 


sq_mapmask = 02; 
sq_memmode = 04; 


gc_setreset = 00; 
gc_sr_enable = 01; 
gc_colorcmp = 02; 
gc_DataRot = 03; 
gc_ReadSel = 04; 
gc_Mode = 05; 
gc_Miscell = 06; 
gc_ColDont = 07; 
gc_bitmask = 08; 


{ Konstanten für verschiedene Mauscursor: } 


idc_arrow =01; 
idc_black = 02: 
idc_wait = 03; 


Type tCursorMask = Array[0..63] of byte; 


const CursorMasks : Array[1..3] of tCursorMask = 
(sFr, s3r,$er, sl, str, $or,$srf,$07, 
srf,$03,$ff,501,$ff,$00,$7f,$00, 

$3f,$00,$1f,$00,$ff,$01,$ff,$10, 
$rf,$30,$77,$78,87f,$F8,$ff,$FC, 
$00,$00,$00,$40,$00,$60,$00,$70, 
$00,$78,$00,$7c,$00.$7E,$00,$7F, 
$80,,$7F,$00,$7C,$00,$6C,$00,$46, 
$00,$06,$00.$03,$00,$03,$00,$00), 
($FF,$3f,$FF,$s1f,$FF,$s0Of,$FF,$07, 
$FF,$03,$FF,$01,$FF,$00.$7F,$00, 
$3F ,$00,$1F,$00,$0F,$00,$0F,$00, 
$FF,$07,$FF,$0f,$FF,$1f,$FF,$3f, 
$00,$C0,$00,$A0,$00,$90,$00,$88, 
$00,$84,600,.$82,$00,$81,$80,$80, 
$40,$80,$20.$80,$10,$80,$F0,$87, 
$00,$88,$00.$90,$00,$A0,$00,$C0), 
($00,$00,$01,$80.$01,$80,$03,$C0, 
$07,$E0,$0F ,$F0,$1F,$F8,$3F,$FC, 
$3F.$FC,$1F,$F8.$0F.$F0,$07,$E0, 
$03,$C0,.$01,$80.$01,$80,$00.$00, 
$00,$00,$FC,$3F,$F8,$1F,$F0,$0B, 
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$60.$05,$80.$02,$00,$01.$80.$00, 
$00,$01.$80.$00,$40,$03,$E0.$06, 
$70.$0D,$B8.$1A,$5C,$35,$00.$00)): 


Var { Zusätzliche Variablen für den Graphikmodus: } 


MouseGraphkhhere:: TPoint; 
LastGraphWhere: TPoint; 
DownGraphWhere: TPoint:; 


GraphDriver ‚GraphMode: integer ; 
GraphMaxX : word: 
GraphMaxY : Word; 


SaveScreenBuffer:Pointer; 
SaveScreenWidth:Byte; 
SaveScreenHeight:Byte; 


CursorVis:Boolean; 
CursorOn:boolean; 
CursorPos:word; 
CursorForm:word; 
CursorFlag:byte; 


CharHeight : word; 


Const 

GraphPlanes: Word = 0; 
GraphMaxPlanes: Word = 0; 
Therfont : Pointer = nil; 
FontSize : word = 0; 
Graphlnit : Pointer = ni]; 
GraphExit : Pointer = nil; 
SegC000 : word = $C000; 


{ Die Unit TVGraph initialisieren: } 
Procedure InitTVGraphics; 

{ Die Unit TVGraph deinitialisieren: } 
Procedure DoneTVGraphics; 

{ Graphikmodus einschalten: } 
procedure EnterGraph: 

{ Graphikmodus ausschalten: } 
procedure LeaveGraph; 

{ Textcursor invertieren: 

{ Sollte nie direkt aufgerufen werden } 
procedure InvCursor; 

{ Setzen eines bestimmten Mauscursors:} 
Procedure SetMausCursor(Id:word); 
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{ Graphik-Bildschirm löschen: } 
procedure ClearDevice: 

{ Aktuelle Graphikkarte ermitteln: } 
Function DetectGraphCard: Integer; 

{ Zeiger auf das Bildschirmbyte mit } 

{ den Koordinaten (x,y) ermitteln: } 

{ Dabei ist x Textkoordinate und y } 

{ Graphikkoordinate. 

Function GetScreenPtr(x.y:word):pointer; 


{ Diese Routinen sind die Ausgaberoutinen für den Graphikmodus, } 
{ und werden von 'writeview' aufgerufen: 

{ Die Koordinaten sind Textkoordinaten: } 
Procedure PaintChar(X.Y.Count,CharColor:Word); 

Procedure PaintStr(X,Y:word;Color:Byte;Var S:String); 

Procedure PaintBuf(X,Y,W:Word;Var Buf); 


{ Rechteckigen Bildschirmbereich im Graphikmodus } 
{ mit der Farbe Color füllen. (Textkoordinaten) } 
Procedure FillRect(X,Y,W.H:Word;Color:Byte); 


{ Zeilentyp für eine BitMap: } 
type 

pScanLine = *tScanline; 

tScanLine = Array[0..0] of byte; 


{ tGraphimage-Typ, der Vorläufer von tBitImage: } 
type 
pGraphImage 
tGraphImage 

Width:word; 
BitsPP:Word; 

FC,BC:Byte: 

Constructor init(aWidth, aHeight, aBitsPP:word); 
Procedure Freeltem(Item:Pointer); virtual; 
BitMapAusschnitt (ix,iy,w,h) an die Bildschirmposition 
(sx,sy) kopieren. 

Die Koordinaten sind TextKoordinaten ! 

Procedure PutImage(ix,iy,w,h,sx,sy:integer); 

Procedure PutPixel(x.y:integer;color:byte); 

Procedure Line(x1,y1,x2,y2:integer:color:byte): 
Function GetPixel(x,y:integer):byte; 


*tGraphlmage; 
object(tCollection) 


rm 
wu 


Procedure Switch2Mono; virtual: 
end; 
{ Größe einer einzelen Graphikzeile in Byte berechnen: } 


Function ScanLineSize(width,bitsPP:word) :word: 
{ Einzelne Scanzeile für tGraphimage auf dem Heap reservieren } 
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Function NewScanLine(Width,BitsPP:word) :pScanLine; 
{ Einzelne Scanzeile für tGraphimage auf dem Heap freigeben } 
Procedure DisposeLine(TheLine:pScanLine;Width,BitsPP:word); 


{SIFDEF DPMI } 


{ Dieser Selektor wird unter DPMI für die } 

{ EGA-/VGA-Romzeichensätze benötigt } 
PROCEDURE _ COOOH: FAR: 

{$ENDIF} 

IMPLEMENTATION 


Uses gdrivers,dos; 


const 
{ Interne Variablen für den Graphikmodus: } 
GraphScreen:Pointer = Nil; 


{ Offset zweier Near-Routinen, die für jede Karte } 
{ unterschiedlich realisiert werden müssen } 


ScreenDelta:word = 0; 
ScreenOffs :word = 0; 


{ Verzögerung des Cursor-Blinkens: } 
IntiCDelay = 3; 


{ Timer-Interrupt-Nr. } 
TimerIntNo = $1C; 
var SavelntiC:pointer; 
Int1CCount::word; 
OldCursorLines:word; 
OldVideoMode::Byte; 
SysFont : Byte; 


Procedure SetMausCursor(Id:word); 
var p:pointer; 
begin 
p:=@CursorMasks[id]; 
asm 
mov ax,9 
xor bx,bx 
xor CX,CX 
les dx,p 
int 33h 
end; 
end; 
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Function SetVideoMode(Mode:byte):Boolean; near; assembler; 
asm 
xor ah,an { Set Video Mode } 
mov al mode 
push ax 
int $10 
mov ah,$0F { Get Video Mode: Überprüfen, ob die Initialisierung 
erfolgreich gewesen ist. } 
int 10h 
pop bx 
cmp al,bl 
jne @@No { Hat nicht funktioniert } 
mov al,l { Hat funktioniert } 
jmp @@YES 
@@No: 
xor al,al 
@@YES: 
end; 


function GetVideomode:byte; assembler; 
asm 

mov ah,$0F 

int 10h 
end; 


{ Laden eines Fonts aus dem Systemverzeichnis in den Arbeitsspeicher} 
Function LoadFont(Font:Byte):Pointer; 
var Dir:DirStr; 
Name : NameStr ; 
Ext:ExtStr; 
Path:PathStr; 
S:SearchRec; 
F:File; 
P:Pointer; 
begin 
LoadFont:=Nil; 
Path:=ParamStr(0): 
FSplit(Path,Dir,Name, Ext); 
Str(Font ‚Name); 
Name :=" FONT8X '+Name; 
Ext:=".FNT'; 
Path:=Dir+Name+Ext; 
FindFirst(Path,$3F,S); 
if Doserror = 0 then 
begin 
{$I-} 
assign(F,path); 
if ioresult<>0 then exit; 
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reset(F ‚256); 

if ioresult<>0 then exit; 
if GraphMaxPlanes=1 then Font:=Font shl 1; 
FontSize:=Font; 
FontSize:=FontSize shl 8; 
GetMem(P ‚FontSize); 
BlockRead(F,P*,Font); 
close(F); 

{$I} 

LoadFont:=P; 

end; 

end; 


{ Erfragen der Adresse der EGA-/VGA-Rom-Fonts: } 
Function GetROMPtr(Font:Byte):Pointer; assembler; 
asm 
push bp 
mov ax,1130h 
mov bh,font 
int 10h 
mov dx,es 
mov ax,bp 
pop bp 
{$IFDEF DPMI} 
mov dx,segC000 
{$ENDIF} 
xor bx,bx 
mov Fontsize,bx 
end; 


{ Hilfsroutine für XLATFont: } 
procedure _xlat_; near: assembler; 
asm 
mov dx,256 
@@2:push di 
push cx 
@@1: movsb 
add di,255 
loop @@1 
pop cx 
pop di 
inc di 
dec dx 
inz @@2 
end; 
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{ Transponiert die Font-Daten für die monochromen Graphikkarten } 
Procedure XLATFont(Var Source ,Dest;Font:Byte); assembler; 
asm 
cld 
push ds 
Ids si,source 
les di,dest 
mov c1,font 
xor ch,ch 
push di 
call _xlat_ 
pop di 
mov ax,256 
mul cx 
add di,ax 
call xlat_ 
pop ds 
end; 


{ Auswahl des Font treffen: Je nach Karte und Font entweder } 
{ aus dem ROM oder aus einer Datei laden: } 
Function SelectFont(Font:Byte):Boolean; 
Var P:Pointer:; 

OldSize:word; 


begin 
P:=NIL; 
OldSize:=FontSize; 
FontSize:=0; 
case Graphdriver of 
EGA: begin 
case Font of 
8 : P:=GetRomPtr (GetRom8x8) ; 
12: P:=LoadFont(Font); 
14: P:=GetRomPtr (GetRom8x14): 
16: P:=LoadFont(Font); 
end; 
end; 
VGA: begin 
case Font of 
8 : P:=GetRomPtr(GetRom8x8) ; 
12: P:=LoadFont(Font); 
14: P:=GetRomPtr (GetRom8x14) ; 
16: P:=GetRomPtr (GetRom8x16) ; 
end; 
end; 
else P:=LoadFont(Font); 
end; 


if (P<>Nil) then 
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begin 
if (OldSize<>0) then FreeMem(TheFont,OldSize); 
TheFont:=P; 
if graphmaxplanes=] then 
begin 
getmem(P,FontSize); 
XLATFont(TheFont* ‚P*, Font): 
MOVE (P* ,TheFont*, ,FontSize); 
freeMem(P,FontSize); 
end; 
end else FontSize:=01dSize: 
SelectFont:=P<>nil; 
end; 


{ Zeilenoffset (Hercules) berechnen: } 
{ = ((y and 3) shl 13) + (yshr 22 *90 + x} 
{ input: ax=y (Zeilen) } 
{ bx = x (Zeichen) } 
{ (cx = plane) } 
{ output: di = offs(x,y) } 
procedure _gethgcoffs:; near: assembler; 
asm 
push ax 
push cx 
push dx 
push ax 
shr ax,2 
mov dx,90 
mul dx 
pop dx 
and dx,3 
mov c1,13 
shl dx,c] 
add ax,dx 
add ax,bx 
mov di,ax 
pop dx 
pop cx 
pop ax 
end; 


procedure _gethgcdelta; near; assembler; 


asm 
cmp di,$6000 { Letzter Block ? } 

jae @@1 

add di,$2000 { Nein: Nächster Block, d.h. 2000H addieren } 
ret 


@@1: 
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sub di.$6000 - 90 { Ja: ($6000-90) abziehen: eine Zeile weiter, 
drei Blöcke zurück } 
end; 


{ Zeilenoffset (CGA) berechnen: 
{ = ((y and 1) sh] 13) + (y shr 1) *80 + x 
{ input: ax = y (Zeilen) 
{ bx = x (Zeichen) 
{ (cx = plane) 
{ output: di = offs(x,y) 
procedure _getcgaoffs; near; assembler; 
asm 
push ax 
push cx 
push dx 
push ax 
shr ax,l 
mov dx,80 
mul dx 
pop dx 
and dx,1l 
mov c1,13 
shl dx,c] 
add ax,dx 
add ax,bx 


no no uno no non 


procedure _getcgadelta; near; assembler; 

asm 

cmp di,$2000 { Letzter Block ? } 

jae @@1 

add di ,$2000 { Nein: Nächster Block, d.h. 2000H addieren } 

ret 
@@1: 

sub di,$2000 - 80 { Ja: ($2000-80) abziehen: eine Zeile weiter, 

einen Block zurück } 
end; 


{ Zeilenoffset (VGA) berechnen 
{ EGA/VGA : (Y * 80) + X 

{ input: ax=y 

{ bx=x 

{ output: di = offset(x,y) 
procedure _getvgaoffs; near; assembler; 


> mu u uno 
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asm 
push dx 
push ax 
mov dx,80 
mul dx 
add ax.bx 
mov di,ax 
pop ax 
pop dx 

end; 


{ DI auf nächste Zeile setzen: } 
procedure _getvgadelta; near: assembler; 
asm 
add di,80 
end; 


{ Variablen und Konstanten für die Herculeskarte: } 
type CRTRegs = Array[0..11] of Byte; 


const H@CGraphRegs: CRTRegs 
=($35,$2D,$2E,$07,$58,$02,$57,$57,$02,$03,$00,$00); 
H6CTextRegs: CRTRegs 
=($61,$50,$52,$0F,$19,$06,$19,$19,$02,$0D,$0B,$0C); 


{ CRTC-Register-Adressen: } 


hgc_ModeReg = $03B8; 
hgc_ConfigReg= $03BF; 
hgc_IndexReg = $03B4; 
hgc_DataReg = $03B5; 


procedure HGCInit(Cfg,Model ,‚Mode2:Byte;Var CRT6845:CRTRegs); 
assembler; 

asm 

mov dx,hgc_configreg 

mov al,cfg 

out dx,al 

mov dx,hgc_modereg 

mov al,model 

out dx,al 

les si,crt6845 

mov cx,12 

cld 

mov dx,hgc_IndexReg 

xor ah,ah 
@@1:mov al,ah 
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out dx,al 
seges lodsb 
inc dx 
out dx,al 
dec dx 
inc ah 
loop @@1 
mov dx,hgc_modereg 
mov al ,mode2 
out dx,al 
{ Neuen Wert des Modusregisters im BIOS-Datenberich ablegen: } 
mov es,seg0040 
mov es:[$65],al 
end; 


Function InitGraph:Boolean; 
var OK:Boolean; 
begin 
OK:=False; 
OldVideoMode :=GetVideoMode; 
SaveScreenBuffer:=ScreenBuffer; 
SaveScreenWidth:=ScreenWidth; 
SaveScreenHeight:=ScreenHeight; 
if graphdriver=HercMono then 
begin 
H6CInit(1,2,$0A,HGCGraphRegs); 
{ Videomode=6, damit der Maustreiber die Herculeskarte erkennt } 
Mem[Seg0040:$49]:=6; 
OK:=true; 
end else 0K:=SetVideoMode (GraphMode) ; 
InitGraph:=0K; 
if not OK then exit; 
ScreenBuffer:=GraphScreen; 
GraphPlanes:=GraphMaxPl anes; 
ScreenHeight:=(GraphMaxY+1) div CharHeight; 
ScreenWidth:=(GraphMaxX+1) shr 3; 
end; 


Procedure CloseGraph; 
begin 
if GraphDriver=HercMono then 
begin 
Mem[Seg0040:$49] :=7; 
H6CInit(1,0,8,HGCTextRegs); 
end else setvideomode(oldvideomode) ; 
ScreenBuffer:=SaveScreenBuffer; 
ScreenWidth:=SaveScreenWidth; 
ScreenHeight:=SaveScreenHeight; 
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GraphPlanes:=0; 
end; 


procedure ClearDevice; assembler; 
asm 
cld 
mov al,screenwidth 
mul byte ptr screenheight 
mul charheight 
add ax,$OFFF 
and ax,$F000 
mov CX,ax 
xor aXx,ax 
les di,screenbuffer 
shr cx,1 
rep Stosw 
end; 


Procedure InitTVGraphics; 
begin 

{$IFDEF DPMI} 

SegC000:=0fs(__COOON); 

{$ENDIF} 

GraphPlanes:=0; 

GraphDriver:=DetectGraphCard; 

Case GraphDriver of 
CGA,,MCGA,, EGAMONO , EGA64 ‚HercMono: GraphMaxPlanes:=1; 
EGA, VGA: GraphMaxPlanes :=4; 
else exit; 

end; 

case graphdriver of 
CGA: begin 

ScreenOffs:=0fs(_GetCGAOffs); 
ScreenDelta:=0fs(_getCGAdelta); 
GraphMode:=6; 
GraphMaxX :=639; 
GraphMaxY :=199; 
SysFont:=Font8x8; 
GraphScreen:=Ptr(SegB800 ,0); 
end; 
HercMono: begin 
ScreenOffs:=0fs(_GetH6cOffs); 
ScreenDdelta:=0fs(_getHGCdelta); 
GraphMode:=6; 
GraphMaxX :=719; 
GraphMaxY :=347; 
SysFont:=Font8x12; 
GraphScreen:=Ptr(SegB000..0); 
end; 
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MCGA:begin 
ScreenOffs:=0fs(_GetVga0ffs); 
ScreenDelta:=0fs(_getvgadelta); 
GraphMode:=$11; 

GraphMaxX :=639; 

GraphMaxY :=479; 

SysFont:=Font8x16; 

GraphScreen:=Ptr(SegA000,,0); 
end; 

EGA64, 

EGAMONO: begin 
ScreenOffs:=Ofs(_GetVga0ffs); 

ScreenDelta:=0fs(_getvgadelta); 
GraphMode:=$F; 
GraphMaxX :=639; 
GraphMaxY:=349; 
SysFont:=Font8x14; 
GraphScreen:=Ptr(SegA000 0); 
end; 

EGA: begin 

ScreenOffs:=0fs(_GetVgaüffs); 
Screendelta:=0fs(_getvgadelta); 
GraphMode:=$10; 

GraphMaxX :=639; 

GraphMaxY :=349; 

SysFont:=Font8x14; 

GraphScreen:=Ptr(SegA000,0); 
end; 

VGA: begin 
ScreenOffs:=0fs(_GetVga0ffs); 
ScreenDelta:=0fs(_getvgadelta); 
GraphMode::=$12; 
GraphMaxX:=639; 

GraphMaxY :=479; 
SysFont:=Font8x16; 
GraphScreen:=Ptr(SegA000,0); 
end; 

end; 

CharHeight:=SysFont; 

SelectFont(SysFont); 

end; 


Procedure DoneTVGraphics; 
begin 

if GraphPlanes>0 then LeaveGraph: 

if FontSize>0 then FreeMem(TheFont,FontSize); 
end; 
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Function GetScreenPtr(x,y:word):pointer; assembler; 


asm 


mov ax,y 
mov bx,xX 
call word ptr screenOffs 
mov ax,di 


mov dx,ScreenBuffer.word[2] 


end; 


procedure InvCursor; assembler; 


asm 


js 
inc 
cmp 
je 
mov 
push 


cursorflag,1 
cx,cursorform 


dl,ch { 0X = Startzeile } 
ch,ch { CX = Endzeile } 
dh,dh 

ax,cursorpos 

bx,ax 

al,al 

al,ah {AX=Y- Pos} 
bh,bh {BX=X- Pos } 


ax ,Mousekhere.y 
@@3 

084 

ax 

084 

ax 

@@3 

bx 
bx,MouseWhere. X 
@@2 


ax 
charheight.byte[0] 
ax dx 

cx,dx 

@@exit 

cx 

graphplanes ‚1 

@@1 


dx, GCtri_ { DX = Indexport } 


ax 
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xor 
out 
mov 
inc 
out 
dec 
mov 
out 
mov 
inc 
out 
dec 
MOV 
out 
mov 
inc 
out 
pop 
@@1:call 
mov 
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al,al { Set/Reset-Register } 

dx,al 

al,sor { In alle Ebenen $FF schreiben } 
dx 

dx,al 

dx 

al,l { Enable-Set/Reset-Register } 
dx,al 

al,$sor { Alle Ebenen zulassen } 

dx 

dx,al 

dx 

al,3 { Data-Rotate-Register } 

dx,al 

al,$18 { Wert für XOR-Verknüpfung } 

dx { Die Werte werden somit invertiert ! } 
dx,al 

ax 

word ptr screenoffs 
es,screenbuffer.word[2] 


{ Bei Monochromkarten=Inversion, bei EGA/VGA } 
{ in Folge ein Lese- und ein Schreibzugriff: } 


@@r:not 


call 


5 


byte ptr es:[di] 
word ptr screendelta 


loop @@r 


xor 
Jmp 


cursorvis,1 
@@exit 


@@ee:pop bx. 
pop ax 


@@exit: 


@@X: 


cursorflag,0 

graphplanes ‚1 

@ax 

dx,_GCtri_ { Indexregister } 

al, { Index Data-Rotate-Register } 


al,al { Keinerlei Datenoperationen einstellen } 


al,ı { Index Enable-Set/Reset-Register } 
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procedure TimerInt; interrupt; 


begin 
asm 
cmp 
je 
cmp 
je 
dec 
jnz 
mov 
@@2:call 
Jmp 
@@1:cmp 
jne 
@@exit: 


cursorflag,1 { Wird gerade der Cursor gezeichnet ? } 
@&exit 

cursorOn,0 { Cursor eingeschaltet ? } 
ee1 

intlccount { Muß der Cursor wieder umgeschaltet werden ? } 
@Gexit 

intlCCount, intlCdelay 

invcursor 

@@exit 

cursorvis,0 { Ist der Cursor ausgeschaltet und sichtbar ? } 
@@2 


pushf 


call 
end; 
end; 


dword ptr SavelntiC; { Alte Interruptroutine aufrufen } 


procedure InitGraphCursor; 


begin 


CursorVis:=False; 
CursorOn:=False; 
IntlCCount:=IntliCDelay; 


asm 
mov 


ah,3 


c],charheight.byte[0] 
cx 

@@1 

ch,cl 
ch,charheight.byte[0] 
c],charheight.byte[0] 
c] 

ch 


cursorform,cx 
cursorpos ‚dx 


OldCursorLines:=CursorLines; 
CursorLines:=(charheight-1) + (charheight-2) sh] 8; 
CursorFlag:=0; 
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getintvec($1C,SavelntiC); 
setintVec($1C,@TimerInt); 
end; 


procedure ExitGraphCursor; 
begin 
setintvec($1C,saveintlC); 
if cursorvis then invcursor; 
CursorLines:=OldCursorLines; 
end; 


procedure EnterGraph; 
begin 
if GraphMaxPlanes>0 then 
begin 
donevideo; 
doneEvents; 
If Not InitGraph then 
begin 
CloseGraph; 
initvideo; 
initevents; 
exit; 
end; 
if Buttoncount>0 then 
asm 
xor aX,aX 
int 33h 
end; 
InitEvents; 
InitGraphCursor; 
if GraphInit<>Nil then 
asm 
call dword ptr graphinit 
end; 
end; 
end; 


procedure LeaveGraph; 
begin 
if GraphPlanes>0 then 
begin 
HideMouse; 
DoneEvents; 
ExitGraphCursor; 
CloseGraph; 
if Buttoncount>0 then 
asm 
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xor aX,aXx 
int 33h 
end; 
InitVideo; 
InitEvents; 
ShowMouse; 
if GraphExit<>nil then 
asm 
call dword ptr graphexit 
end; 
end; 
end; 


procedure GetDisplayType; near; assembler; 


asm 
MOV AX, $1A00 { Read Monitor Status: EGA-/VGA-BIOS } 
INT $10 
CMP AL,$1A { Wenn Funktion unterst. wird, steht in AL 1Ah } 
JNE 082 
CMP BL,$07 { BL = "Active Display Mode' } 
JZ e@1 
CMP BL,$08 
JZ e@1 
CMP BL,$0B 
JB 082 
CMP BL,$0C 
JA 082 
@@1: STC 
JMP @83 
@@2: CLC 
883: 
end; 


Function DetectGraphCard: Integer; assembler; 
const Card:integer = -1; 


asm 
CMP CARD, -1 
JNE @GEXIT 
MOV AX, $1200 { Alternate Function Select: EGA-/VGA-BIOS } 
MOV BX, $FF10  ( Get Ega/Vga Info } 
MOV CL, $oF { Rückgabe in CL = "Feature Bits’ } 
INT 10H 
CMP CL,$0C 
JAE e@10 
CMP BH,$01 { BH = 1 Monochrome Mode, 0 = Colormode } 
JA @@10 


CMP BL,$03 { BL=Speicher, 0: 64KB,1:128KB,2:196KB,3:256KB } 
JA e@10 
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@@1: CMP 


@@4: MOV 


@@3: MOV 


882: MOV 


@@10:MOV 


@@7: MOV 


@@H1:IN 


JNB 
@@H2:LOOP 
JMP 
@@H3 :MOV 
JMP 
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BH,1 

@@1 

CARD ‚ EGAMONO 

@GEXIT 

CL,2 

@82 

BL,BL 

e@2 

GETDISPLAYTYPE 

603 

ES, SEGCOOO 

WORD PTR ES:[$39] ,345AH 
@a4 

WORD PTR ES:[$3B].3934H 
@a3 

CARD, EGA 

@BEXIT 

CARD ‚VGA 

@@EXIT 

CARD , EGA64 

@GEXIT 

AH,$OF 

10H 

AL,7 

@@7 

GETDISPLAYTYPE 

eeco 

BL ,OBH 

@@EXIT 

CARD ‚MCGA 

@@EXIT 

DX, $03BA { $3BA: Statusregister der HGC/MDA-Karte } 
BL,BL { Bei der HGC-Karte flippt Bit 7,da es die } 
AL,DX { vertikale Synchronisation anzeigt } 
AL,$80 

AH,AL 

CX, $8000 

AL,DX 

AL,$80 

AL,AH 

@@H2 

BL 

BL,$0A 

@CH3 

@CH1 

ECO 

CARD ‚HERCMONO 

G@EXIT 
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SI, $B800 { Die CGA-Karte beginnt bei BB000H } 


ES,SI 

SI,SI 

AX WORD PTR ES: [SI] 
AX 

WORD PTR ES: [SI] 


AX ‚WORD PTR ES: [SI] 
@@EXIT 
CARD,CGA 


AX CARD 


CX = Count 

DS:DX = @Thinfont 

DS:BX = @ThickFont 

SS:SI = Source (tDrawbuffer) 
ES:DI = Destination (Videoram) 


[ESS ZUBS UBS ZUBE LU} 


procedure MonoMoveBuff; near: assembler; 
const CharH = - 2; 
GraphDelta = -6; 


asm 


@@12: 
@@13: 


@@15: 


@@14: 


cld 


xchg bx,dx { Standardfont ist dünn 
@@1l:push cx 

push si 

push di 

@@1: segss lodsw 


test 
jz 
xchg 
xlat 
xchg 
Jmp 
xlat 
and 
cmp 
jne 
not 
Jmp 
or 
jnz 
xor 


ah,8 { Zeichen dick zeichnen ? } 


@@12 
bx,dx 

{ Bitmuster dicker Font 
bx,dx 
@@13 

{ Bitmuster dünner Font 
ah,$77 _ { Zeichen invertiert ? 
ah, $70 
@@15 
al 
6@14 
ah,an { Zeichen schwarz ? } 
@@14 
al,al 


stosb 
loop @@1 
pop di 


} 


} 


} 
} 
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pop si 

pop cx 

dec word ptr [bp].CharH 

jz .@7 

add bx,256 { Nächste BitTabelle } 
add dx,256 

call word ptr [bp].graphdelta { Nächste Bildschirmzeile } 
jmp @e11l 


{ INPUT : CX = Count 
{ AH = Color 
{ DS:DX = @Thinfont 
{ DS:BX = @ThickFont 
{ SS:SI = Source (tDrawbuffer) 
{ ES:DI = Destination (Videoram) 
procedure MonoMoveStr: near; assembler; 
const CharH =--2; 
Graphfunc = - 4; 
GraphDelta = - 6; 


asm 
cld 
test ah,8 
jnz @@1 
xchg bx,dx 
@@]1: and ah,$77 
cmp ah,$70 
jnz @@2 
mov word ptr [bp].graphfunc,offset @@Inverted 
jmp ee1l 
@@2: mov word ptr [bp].graphfunc,offset @@Normal 
or ah,ah 
jnz eell 
mov word ptr [bp].graphfunc,,offset @@Black 
@@1l:push cx 
push si 
push di 
call word ptr [bp].graphfunc 
pop di 
pop si 
pop cx 
dec word ptr [bp].CharH 
jz 17 
add bx,256 { Nächste BitTabelle } 
call word ptr [bp].graphdelta { Nächste Bildschirmzeile } 
jmp 6e@e1l 
@@Normal: 
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segss lodsb 
xlat 
stosb 
loop @@normal 
ret 
@eBlack: 
xor al,al 
rep stosb 
ret 
@@Inverted: 
segss lodsb 
xlat 
not al 
stosb 
loop @@inverted 
ret 
@@17: 
end; 


{ INPUT : CX = Count } 
{ AH = Color } 
{ AL = Zeichen } 
{ DS:DX = @Thinfont } 
{ DS:BX = @ThickFont } 
{ ES:DI = Destination (Videoram) } 
procedure MonoMoveChr; near; assembler; 
const CharH =-2; 
Graphfunc = - 4; 
GraphDelta = - 6; 
asm 
cld 
test ah,8 
jnz @@l 
xchg bx,dx 
@@1: and ah,$77 
cmp ah,$70 
jnz @e2 
mov word ptr [bp].graphfunc,offset @@Inverted 
jmp e@@11 
@@2: mov word ptr [bp].graphfunc,offset @@Normal 
or ah,ah 
jnz @@11 
mov word ptr [bp].graphfunc,offset @@Black 
@@11:push cx 
push di 
call word ptr [bpJ.graphfunc 
pop di 
pop cx 
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nern 


dec word ptr [bp].CharH 


jz «67 
add bx.256 { Nächste BitTabelle } 
call word ptr [bp].graphdelta { Nächste Bildschirmzeile } 
jmp @@ll 
@@Normal: 
push ax 
xlat 
rep stosb 
pop ax 
ret 
@@Black: 
push ax 
xor al,al 
rep stosb 
pop ax 
ret 
@@Inverted: 
push ax 
xlat 
not al 
rep stosb 
pop ax 
ret 
@@17: 
end; 


{ INPUT : CX = Count } 
DS:BX = @ThickFont } 
SS:SI = Source (tDrawBuffer) } 
ES:DI = Destination (Videoram) } 
procedure EGAMoveBuff; near; assembler; 
const CharH = - 2; 

Graphfunc = - 4; 


asm 
mov ch,cl 
mov cl1,byte ptr [bp].charh 
push bp 
mov bp,si 
mov si,bx 
mov dx,_GCtr] { DX = Indexport } 
mov al,gc_mode { Mode Register } 
out dx,al 
mov al,$02 { Schreibmodus 2 einstellen } 
inc dx 
out dx,al 
dec dx 
mov al,gc_bitmask { Bit-Mask-Register } 
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out dx,al 
inc dx 


@@1:push 


xor 


di 


si,ax 
ch,ch 


@@2: lodsb 


out 
mov 
not 
out 
mov 


dx,al 
es:[di],b] 
al 

dx,al 
al,bh 


xchg al,es:[di] 


@@X: add 


di ,80 


loop @@2 


pop 
pop 
pop 
inc 
dec 
jnz 


cx 


pop bp 

mov al,$sFF 
out dx,al 

dec dx 

mov al,gc_mode 
out dx,al 

xor al,al 

inc dx 

out dx,al 


end; 
{ INPUT : 
{ 
{ 
{ 
{ 


procedure EGAMoveStr; 


CX = Count 
AH = Color 


{ Datenport } 


{ ASCII-Zeichen nach AL, Farbe nach AH } 


{ BL = Vordergrundfarbe 
{ BH = Hintergrundfarbe 
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{ Innere Schleife: nur über Zeichenzeilen } 


{ Fontbyte laden 
{ Bitmuster Vordergrund 


{ Vordergrundfarbe schreiben 


Bitmuster Hintergrund 


{ 
{ Mit Lesezugriff Latch-Register laden 
{ Hintergrundfarbe schreiben 

{ 


Nächste Zeile 


{ Nächstes Bildschirmzeichen } 


{ Alle Bits zulassen 


{ Indexport 
{ Mode Register 


{ Schreibmodus 0 


DS:BX = @ThickFont 
SS:SI = Source (Array[..] of Char) 
ES:DI = Destination (Videoram) 


const CharH = - 2; 


near; assembler; 


} 


} 
} 
} 
} 
} 


mu uno 
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asm 
mov ch,cl 
mov cl,byte ptr [bp].charh 
push bp 
mov bp,si 
mov si,bx 
mov bl,ah 
mov bh,ah 
and b1,$0F 
shr bh,4 
mov dx, _GCtri_ { DX = Indexport } 
mov al,gc_mode { Mode Register } 
out dx,al 
mov a1,$02 { Schreibmodus 2 einstellen } 
inc dx 
out dx,al 
dec dx 
mov al,gc_bitmask { Bit-Mask-Register } 
out dx,al 
inc dx { 0X = Datenport } 
@@]:push di 
push si 
push cx 
mov al,[bp] { Asciizeichen laden } 
inc bp 
mul cl { Offset in den Font berechnen } 
add si.ax 
xor ch,ch { Innere Schleife: nur über Zeichenzeilen } 
@@2: lodsb { Fontbyte laden } 
out dx,al 
mov es:[di],bl { Vordergrundfarbe schreiben } 
not al 
out dx,al 
mov ah,es:[di] { Lesezugriff, um die Latchreg.zu laden; } 
{ sonst wird die bereits gesetzte Vorder- } 
{ grundfarbe überschrieben } 
mov es:[di],bh { Hintergrundfarbe schreiben } 
@@X: add di,80 { Nächste Zeile } 
loop @@2 
pop cx 
pop si 
pop di 
inc di 
dec ch 
inz @@1 
pop bp 
mov al,$FF { Alle Bits zulassen } 
out dx,al 
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} 


dec dx { Indexport } 
mov al,gc_mode { Mode Register } 
out dx,al 
xor al,al { Schreibmodus 0 } 
inc dx 
out dx,al 
end; 
{ INPUT : CX = Count } 
{ AH = Color } 
{ AL = Zeichen } 
{ DS:BX = @ThickFont } 
{ ES:DI = Destination (Videoram) } 
procedure EGAMoveChr; near; assembler; 
const CharH =-2; 
Graphfunce = - 4; 
GraphDelta = - 6: 
asm 
cld 
mov si.bx 
mov bl,ah 
mov bh,bl 
and b1,$0F { BL = Vordergrundfarbe } 
shr bh,4 { BH = Hintergrundfarbe } 
xor ah,ah 
mul word ptr [bp].charh 
add si,ax 
mov dx, _GCtrl_ { DX = Indexport d. Graphic-Controllers } 
mov al,gc_mode { Mode Register 
out dx,al 
mov al,2 
inc dx 
out dx.al { Schreibmodus 2 einstellen 
dec dx 
mov al,gc_bitmask 
out dx,al { Bitmasken-Register adressieren 
inc dx { Datenregister einstellen 
@@2: lodsb 
out dx,al 
not al 
mov ah,al 
mov al,bl 
push di 
push cx 
rep stosb 
pop cx 
pop di 


mov 


al,ah 
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out 
push 
push 
@@1: mov 
xchg 
inc 
loop 
pop 
pop 
dec 
jz 
call 
Jmp 
@@3:mov 
out 
dec 
mov 
out 
inc 
xor 
out 
end; 


Procedure 
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al,es:[di] 

di 

e@1 

cx 

di 

word ptr [bp].charh 

083 

word ptr [bp].graphdelta 


dx,al { Alle Bits zulassen } 

dx { DX = Indexregister } 

al ‚gc_mode 

dx,al 

dx 

al,al 

dx,al { Schreibmodus 0 einstellen } 


PaintStr(X.Y:word;Color:Byte:;Var S:String); assembler; 


var CharH:word; 


Graph 
Graph 
asm 

cmp 
je 
cld 
mov 
mov 
mov 
mov 
les 
seges 
mov 
xor 
mov 
cmp 
je 
sub 
mov 
mov 
mov 
mov 


func:word; 
Delta:word; 


GraphPlanes, 0 
@@Text 


ax,screendelta 
Graphdelta, ax 
ax,Charheight 
CharH, ax 

si,S 

lodsb 

cl,al 

ch,ch 

ax,ss 
ax,S.word[2] { Liegt der Puffer bereits auf dem Stack ? } 
@@1 { Wenn nicht: Relevanten Bereich auf Stack kopieren } 
SP.cX 

di,sp 

dx,ds 

ds,S.word[2] { DS:SI 
es,ax { ES:DI 


*Buffer } 
Zeiger auf Stackbereich } 
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push 
push 
shr 
jnc 


movsb 


@@10:rep 
pop 
pop 
mov 

e@1: 
mov 
mu] 
mov 
mov 
call 
mov 
push 
cmp 
1ds 
jne 
call 
Jmp 


@BEGAVGA: 


call 
Jmp 
@@text: 
push 
mov 
mu] 
add 
sh] 
les 
add 
mov 
lds 


lodsb 


mov 
xor 


@@T: lodsb 
stosw 


loop 
@@exit: 
pop 
end: 


di 
cx 
cx,1 
@@10 


mOvsw 
cx 
si { SS:SI = *Stack-Buffer } 


{ CX = Count } 


bx,x 

es,screenbuffer.word[2] 

word ptr screenoffs { ES:DI = *“Videomem } 
ah,byte ptr color 

ds 

graphplanes,1 

bx,Thefont { DS:BX = *Thickfont } 
A@EGAVGA 

monomovestr 

@@exit 


egamovestr 
e@exit 


ds 

ax,y 
screenwidth 
ax.x 

ax,1 
di,screenbuffer 
di,ax 

ah,color 

si,S 


cl,al 
ch,ch 
@aT 


ds 


Procedure PaintChar(X,Y,Count,CharColor:Word):; assembler; 
var CharH:word; 
Graphfunc::word; 
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GraphDelta:word; 


asm 
cld 
cmp 
je 
mov 


mov 
mul 
mov 
mov 
call 
mov 
push 
cmp 
jne 
push 
mov 
mu] 
mov 
1ds 
add 
pop 
call 
jmp 


EBEGAVGA: 


1ds 
call 
Jmp 
@@text: 
push 
mov 
mul 
add 
shl 
les 
add 
mov 
mov 
rep 
@@exit: 
pop 
end; 


graphplanes,0 
@@Text 
ax,screendelta 
Graphdelta, ax 
ax,Charheight 
CharH, ax 
cx,count 

y 

bx,x 
es,screenbuffer..word[2] 
word ptr screenoffs 
ax,CharColor 

ds 

graphplanes ‚1 
@@EGAVGA 

ax 

ax,256 

charH 

dx,ax 

bx,Thefont { DS:BX 
dx,bx { DS:DX 
ax 

MonoMovechr 

@@exit 


{ CX = Count } 


*Thickfont } 
*Thinfont } 


bx,Thefont { DS:BX 
egamovechr 
@@exit 


*Thickfont } 


ds 

ax,y 
screenwidth 
ax,x 

ax,l 
di,screenbuffer 
di,ax 

cx,count 
ax,CharColor 
Stosw 


ds 


Procedure PaintBuf(X,Y,W:Word;Var Buf): assembler; 
var CharH:word; 


14.3 Die TGV - UNITTVGRAPH 421 


Graphfunc :word; 
GraphDelta:word; 


asm 
cld 
cmp 
je 
mov 


pop 
pop 
mov 
@@1: 
mov 
mul 
mov 
call 
mov 
push 
cmp 
1ds 
jne 
mov 
mu] 
mov 
add 
call 
Jmp 
@@Text: 
push 
MOV 
mu] 
add 


graphpl anes ‚0 

@@Text 

ax,screendelta 

Graphdelta, ax 

ax,Charheight 

CharH, ax 

cx,W 

si,buf.word[0] 

ax,ss 

ax,buf.word[2] { Liegt der Puffer bereits auf dem Stack ?} 
@@1 { Wenn nicht: Relevanten Bereich auf Stack kopieren } 
SP.Cx 

SP.CX 

di,sp 

dx.ds 

ds,buf.word[2] { DS:SI = “Buffer } 

eS,ax { ES:DI = Zeiger auf Stackbereich } 

di 

cx 


si { SS:SI = *Stack-Buffer } 


{ CX = Count } 


bx,x 

word ptr screenoffs 

es,screenbuffer.word[2] { ES:DI = *Videomem } 
ds 

graphplanes ‚1 
bx,Thefont { DS:BX 
@@EGAVGA 

ax, 256 

charh 

dx,ax 

dx,bx { DS:DX 
MonoMovebuff 
@@exit 


*Thickfont } 


*Thinfont } 


ds 

aX,y 
screenwidth 
ax.x 
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shi ax,.l 

les di,screenbuffer 

add di,ax 

mov CcX.W 

lds si,Buf 

rep MOVSw 

jmp exit 
@BEGAVGA: 

call egamovebuff 
@@exit: 

pop ds 

end; 


procedure _dostore_: near; assembler; 
asm 
@@1:push di 
push cx 
shr cx.l 
jnc @@2 
stosb 
@@2:rep sStosw 
pop cx 
pop di 
call word ptr screendelta 
dec si 
jnz @@l 
end; 


Procedure FillRect(X,Y,W.H:Word;Color:Byte): assembler 

asm 

cld 

mov ax,y 

mul charheight 

mov bx,x 

call word ptr screenoffs 
mov es,screenbuffer.word[2] 
mov ax,h 

mul charheight 

mov Si,ax 

mov CX,W 

mov bl,color 

cmp graphplanes,1 

je _@@Mono 

mov dx,_getri_ 

mov al,gc_setreset 

out dx,al 

mov al,bl 

inc dx 
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out dx,al 

dec dx 

mov al,gc_sr_enable 

out dx,al 

mov al,$sor 

inc dx 

out dx,al 

call _dostore_ 

xor al,al 

out dx,al 

jmp @Gexit 
@@Mono: 

or bl.bl 

jz e@@Black 

mov ax,$FFFF 

jmp @@khite 
e@Black: 

xor aX,ax 
@@White: 

call _dostore_ 
@@exit: 

end: 


constructor tGraphImage.init(aWidth, aHeight, aBitsPP:word): 
var i:integer; 
longsize:longint; 

begin 

i:=aHeight mod charheight; 

if i<>0 then aHeight:=aleight + Charheight - i; 
inherited init(aHeight.10); 

Width:=aWidth; 

BitsPP:=aBitsPP; 

BC:=Black: 

FC:=lightgray; 

Longsize:=scanlinesize(aWidth, aBitsPP); 
Longsize:=(Longsize + 4) * aHeight; 

if MemAvail<LongSize then fail: 

for i:=1 to aHeight do insert(NewScanline(Width,BitsPP)); 
end; 


procedure tGraphImage.Freeltem(Item:Pointer); 
begin 

DisposeLine(pScanLine(Item) ‚Width,BitsPP): 
end; 


Procedure tGraphImage.Putlmage(ix,iy,w,h,sx,sy:integer): assembler; 
var list:pointer:; 
scrDelta:word; 
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asm 
{ Koordinaten überprüfen: } 
cld 
push ds 
les di,self 
mov ax,es:[di].width 
shr ax.3 
sub ax, ix 
jbe @@exit 
CMP ax,W 
jae @@101 
moV W,ax 
@@101: 
mov ax,es:[di].count 
xor dx,dx 
div charheight 
sub ax,iy 
jbe @@exit 
cmp ax,h 
jae @@102 
mov h,ax 
@@102: 
{ Monochrom oder Farbkarte ? } 
cmp graphplanes,1 
je @@monodraw 
{ Farbkarte: 2 oder 16 Farben ? } 
cmp es:[di].bitsPP,1 
je @@2cols 
cmp es:[di].bitsPP,4 
jne @@exit 
{ 16-Farben-Darstellung: 4 Farb-Ebenen in den Bildspeicher schrei- 
ben. } 
mov ax,h 
mul charheight 
mov CX,ax 
push cx { CX = Zeilen } 
mov ax,es:[di].width 
mul es:[di].bitsPpP 
add ax,3l 
mov bx,ax 
shr bx,5 { BX = Anzahl der Byte/Farbe } 
push bx 
les di,es:[di].items { Zeiger auf die Scanzeilen laden } 
mov ax,iy 
mul charheight 
shl ax,2 
add di,ax 
mov list.word[0],di 
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mov list.word[2].es { List = “Array of “Scanzeilen } 
mov ax,sy {MX =Y, BX=X für Bildspeicher-Offset } 
mul charheight 

mov bx,SX 

call word ptr screenoffs { DI = Bildspeicheroffset } 

mov es,screenbuffer.word[2] { ES:DI = “VideoRam } 

pop bx { BX = Anzahl der Byte/Farbe } 

pop cx { CX = Zeilen 

mov dx,_getri_ { DX = Indexregister des EGA- 


/NGA-Graphikcontrollers } 
mov al.gc_sr_enable 


out dx,al 
inc dx 
xor al,al 
out dx,al { Set/Reset-Register sperren } 
mov dx,_sequ_ { DX = Indexregister des Sequencers } 
mov al,sq_mapmask { Map-Mask-Register adressieren } 
out dx,al 
inc dx 
@@24:mov al.l { 1. Farbebene selektieren } 
out dx,al 
Ids si,list 
lds si,[si] { DS:SI = Zeiger auf Quelldaten } 
add list.word[0].4 
push cx { Anzahl der Scanzeilen sichern } 
mov CX,W { Zähler für eine Scanzeile setzen } 
add si,ix { DS:SI = “Bits } 
@@14: push di 
push si 
push cx 
shr cx.l { Daten in den Bildspeicher schreiben: } 
jnc @@100 
movsb 
@@100:rep movsw 
pop cX 
pop si 
pop di 
add si,bx { Offset auf nächste Farbe der Scanzeile 
setzen } 
shi al,l { Maske für nächste Farbebene setzen } 
cmp al,$10 { Letzte Ebene bereits geschrieben ? } 
jae 8834 
out dx,al 
jmp @@14 
@@34:add di,80 { Bildspeicheroffset auf nächste Scanzeile } 
pop cx { Zeilenzähler restaurieren } 
loop @@24 


mov al,$sor { Alle Ebene wieder zulassen } 
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out dx,al 
jmp @@exit { Fertig => EXIT 
@@2cols: {**** 2-Farbige Darstellung auf EGA-/VGA-Karte: ****} 
mov ax,h 
mul charheight 
mov CX,ax 
push cx {X 
mov bl,es:[di].FC 
mov bh,es:[di].BC {X 
push bx 
les di,es:[di].items 
mov ax,iy 
mul charheight 
shi ax,2 
add di,ax { ES:DI = *Scanzeilenliste } 
mov 1list.word[L0].di 
mov list.word[2],es 
mov ax,sy 
mul charheight 
mov bX,SX 
call word ptr screenoffs { nn berechnen } 
mov es,screenbuffer.word[2] { ES:DI = *“VideoRam } 
pop bx {RX = en } 
pop cx { CX = Zeilen } 
mov dx,_getri_ { Schreibmodus 2 einstellen: } 
mov al,gc_mode 
out dx,al 
mov al,2 
inc dx 
out dx,al 
dec dx 
mov al,gc_bitmask { Bitmaskenregister adressieren } 
out dx.al 
inc dx 
@@20:1ds si,list 
lds si,[si] 
add Tist.word[L0],4 
push cx 
mov CX,W 
add si,ix { DS:SI = “Quellzeile } 
push di 
@@10: lodsb { Bitmuster laden.. } 
out dx,al 
mov es:[di],bl { Vordergrundfarbe schreiben. } 
not al { Bitmuster invertieren.. } 
out dx,al { ..und in das BitMaskRegister schreiben. } 
mov ah,es:[di]{ Lesezugriff, um die Latchregister zu laden } 
mov al,bh 


Zeilen } 


Farben } 


14.3 Die TGV - UNITTVGRAPH 427 


stosb { Hintergrundfarbe schreiben. } 
loop @@10 


pop 


di 


pop cX 


add 

100) 
mov a 
out d 
dec d 
mov a 
out d 
xor a 
inc d 
out d 


di,80 { Offset nächste Scanzeile } 
p @@20 
1,$FF { Alle Bits wieder zulassen } 
x,al 
x 
1,gc_mode { Schreibmodus 0 einstellen } 
x,al 
1,al 
x 
x,al 


jmp @Bexit { FERTIG } 


@@monodr 


mov 
mu] 
sh] 
add 
mov 
mov 
mov 
mul 
mov 
call 
mov 
pop 
@@21:1ds 
1ds 
add 
pus 


aw: 
ax,screendelta { Offset der aktuellen Routine laden.} 
Scrdelta.ax 
ax,h 
charheight 
Ccx.ax 
cx { CX = Zeilen } 
di,es:[di]. items 
ax,iy 
charheight 
ax,2 
di,ax 
list.word[L0].di 
list.word[2],es 
ax,sy 
charheight 
bx,Sx 
word ptr screenoffs 
es,screenbuffer.word[2] { ES:DI = “VideoRam } 
cx 
si,list 
si,[si] 
list.word[L0].4 
h cx 


mov CX,W 
add si,ix { DS:SI = “Bits } 


pus 
pus 


hdi 
h si 


shr cx.l 
jnc @@50 
movsb 
@@50:rep movsw 
pop si 
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pop di 
pop cx 
call Word ptr ScrDelta 
loop @@21 
exit: 
pop ds 
end: 


Procedure PutScanLinePixel(p:pScanLine;X,Width:Integer; 
Color ,BitsPP:byte); assembler; 
asm 
les di,p 
mov ax,X { Offset auf erstes Byte = X shr 3 } 
mov CX,ax 
shr ax,3 
add di,ax 
and cx,7 
mov ah,$80 { Maske = 80H shr (X and 7) } 
shr ah,c] 
mov al,ah 
not al 
mov c1,BitsPP{ CX 
xor ch,ch 
mov bl,color { BL = Farbe 
mov dx,width { DX = Offset-Delta zur nächsten Farbkompo 
nente } 


Zähler über die Farbebenen } 


add dx,31 
shr dx,3 
and dx,$FFFC 
@@l:shr bl.l { Farbbit gesetzt ? } 
je 0@ 
and es:[di],al { Nein: Bit löschen } 
jmp @@3 
@e2:or es:[di].ah { Ja: Bit setzen } 
@@3:add di.dx 
loop @@1 
end; 


Procedure tGraphImage.PutPixel(x,y:integer:;color:byte); 
var p:pScanline; 
begin 
if (y<count) and (x<width) and (y>=0) and (x>=0) then 
begin 
p:=at(y); 
putscanlinepixel(p.x,width,color,BitsPP); 
end: 
end: 
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Function getscanlinepixel(p:pScanLine;X,Width: Integer; 
BitsPP:byte):byte; assembler; 
asm 
les di,p 
mov ax,X { Offset auf erstes Byte = X shr 3 } 
mov CX,ax 
shr ax,3 
add di,ax 
and cx,7 { CX = X And 7+1 } 
inc Ccx 
mov b1,BitsPP 
mov dx,width 


BL = Zähler über die Farbebenen 
DX = Offset-Delta zur nächsten Farbkompo 
nente } 
add dx,31 
shr dx,3 
and dx,$FFFC 
xor ax,ax 
@@1:mov bh,es:[di] 
shl bh,cl 
rcl all 
add di,dx 
dec bl 
jnz @el 
end; 


Function tGraphlImage.GetPixel(x,y:integer):byte; 
var p:pScanline; 
begin 
if (x<0) or (width) or (y<0) or (y>=count) then 
getpixel:=0 else 
begin 
p:=at(y); 
getpixel :=getscanlinepixel(p,x,width,bitspp): 
end; 
end; 


{ Bresenham-Algorithmus: } 
Procedure tGraphImage.Line(x1,y1,x2,y2:integer;color:byte); 
var xx,dx,dy,r:integer; 
begin 

if y2<yl then 

begin 

dx:=x2; 

x2:=x1; 

x1:=dx; 

dy:=y2; 

y2:=yl; 

yl:=dy; 
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if x2>x1 then xx:=1 else xx:=-1; 
dy:=abs(y2-yl): 
dx:=abs(x2-x1): 
r:=0; 
putpixel(x1.yl,color); 
if dx>dy then while x1<>x2 do 
begin 
xl:=x1+xx; 
inc(r,dy); 
if r shl 1>=dx then 
begin 
inc(yl); 
dec(r.,dx); 
end; 
putpixel(x1,yl,color); 
end else while yl<>y2 do 
begin 
inc(yl); 
inc(r.dx); 
if r shl 1>dy then 
begin 
xl:=x1l+xx; 
dec(r.dy); 
end; 
putpixel(x1,yl.color) 
end; 
end; 


Procedure tGraphImage.Switch2Mono; 
var p2,pl.p0:pScanline; 
x,y:integer; 
c:byte; 
procedure XChangeline(p:pScanLine;i:integer): 
var q:pScanline; 
begin 
if (y<count) and (y>=0) then 
begin 
q:=at(i); 
atput(i,p); 
disposeline(q,width.bitspp); 
end; 
end; 
begin 
if bitsPP=1 then exit; 
pl:=nil; 
p2:=nil; 
for y:=0 to count-1 do 
begin 
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p0:=pl; 
pl:=p2: 
p2:=NewScanLine(Width,1); 
for x:=0 to width-1 do 
begin 
c:=getpixel(x.y); 
if (getpixel(x-1,y)>c) or (getpixel(x+1,y)>c) 
or (getpixel(x,y-1)>c) or (getpixel(x,y+1)>c) then 
PutScanLinePixel(p2.X.Width 1.1): 
end; 
if (p0<>nil) and (y>1) then XChangeLine(p0,y-2); 
end; 
if pl<>nil then XChangeline(pl.count-2); 
if p2<>nil then XChangeLine(p2,count-1): 
BitsPP:=1; 
end; 


Function ScanLineSize(width,bitsPP:word):word; assembler; 
asm 

mov ax,width 

mul bitsPP 

add ax,31 

shr ax,3 

and ax,$FFFC 
end; 


Function NewScanLine(Width,BitsPP:word):pScanLine; 
var s:word; 
p:pScanLine; 
begin 
p:=nil; 
s:=ScanLineSize(width,bitsPP); 
if MaxAvail>s then 
begin 
Getmem(p,s):; 
asm 
cid 
mov CX,S 
shr cx.1 
les di,p 
xor aX,ax 
rep stosw 
end; 
end; 
NewScanlLine:=p; 
end; 
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Abb. 14.1: 
Bildschirm- 
Hardcopy von 
TGVDEMO 
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Procedure DisposeLine(TheLine:pScanLine;Width,BitsPP:word): 
begin 
if TheLine<>nil then FreeMem(TheLine,ScanLineSize(width,bitsPP)); 
end; 


{sIFDEF DPMI } 
PROCEDURE __COOOH; EXTERNAL "KERNEL" INDEX 195; 
{$ENDIF} 


BEGIN 


InitTVGraphics; 
END. 


Das Demoprogramm TGVDEMO. PAS 


Sum —memummon mem 


Natürlich gehört zu einem en wie de CV ı ein Demopro- 
gramm, das seine Fähigkeiten anschaulich unter Beweis stellt. 


Datei Bip 
L-IC:SWINDOUSNBLAETTER.BMPU'] 


Alt-X Exit F9 Graphik Ein/Aus 


Für den Umbau der TURBO-VISION zur TGV benötigt man zwar 
allenfalls ein bis zwei Stunden, möchte dann aber sicherlich die 
Funktionalität sofort selbst begutachten. Hierbei ist allerdings noch 
folgendes zu beachten: 
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2) 


3 


De 


4) 


Die auf der Diskette mitgelieferten Font-Dateien werden von der 
TGV im Graphikmodus benötigt, sofern man nicht über einen 
EGA-/VGA-Adapter verfügt. Sie müssen dem Programm in sei- 
nem Stammverzeichnis zur Verfügung stehen. 


Die mit Borland Pascal 7.0 ausgelieferte Turbo-Vision-Version 
2.0 vom 28.10.1992 enthält ein paar Bugs. Die noch vorzuneh- 
menden Modifikationen an den Units (g)Dialogs und (g)StdDig 
werden in Kapitel 15 beschrieben. 


Man muß über einen Assembler (am besten TASM) verfügen, um 
die für den Bildschirmschoner notwendigen Modifikationen des 
Moduls SYSINT.ASM ( bzw. GSYSINT.ASM ) compilieren zu kön- 
nen. Steht kein Assembler zur Verfügung, so muß auf den Bild- 
schirmschoner verzichtet werden. 


Um sich von den graphischen Fähigkeiten der TGV voll über- 
zeugen zu können, sieht das Demo-Programm die Möglichkeit 
vor, Windows-Bitmap-Dateien (*.BMP) zu laden und in einem 
Fenster anzuzeigen. Sollte jemand keine .BMP - Datei besitzen 
(so unwahrscheinlich dies auch sein mag), so befindet sich für 
diesen Fall eine BMP-Datei auf der Beilagediskette. 


Soweit diese Details beachtet werden, sollte sich das Demo-Pro- 
gramm TGVDEMO.PAS sowohl für den Realmodus als auch für den 
Protected Mode einwandfrei compilieren lassen und (nach dem La- 
den einer Bitmap-Datei) gemäß Abbildung 14.1 präsentieren. 
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15.1 


Im Prinzip sollte die Turbo-Vision den Abschluß des Buches bilden. 
Aber erstens kommt es anders und zweitens als man denkt, wie das 
Sprichwort behauptet; daher dieses Kapitel. Im ersten Teil werde 
ich nur kurz auf zwei Fehler in der TURBO VISION eingehen, die 
allerdings korrigiert werden müssen, wenn das Beispiel-Programm 
zur TGV überhaupt ’laufen’ soll, da sich sonst der tFileDialog nicht 
so verhält, wie man - verwöhnt von der Turbo-Pascal-IDE - erwar- 
ten würde. 

Danach möchte ich noch ein paar Gedanken zur TGV - bzw. zu 
naheliegenden Erweiterungen in Richtung eines Graphikpaketes - 
äußern. Schließlich soll noch ein Fließkommaemulator vorgestellt 
werden. 


Nachlese zur TURBO VISION 


Wie schon im letzten Kapitel angekündigt, will ich an dieser Stelle 
noch auf einige (kleine) Fehler der mit Borland Pascal 7.0 ausgelie- 
ferten TURBO VISION 2.0 aufmerksam machen. Diese betreffen im 
wesentlichen die Funktionalität des tFileDialog-Objekts. 

So heißt es in der Funktion ’RelativPath’ der UNIT STDDLGS 


Relativepath := not (S <> '') and ((S[1] = '\') or (S[2J] = ':")); 
Besser scheint mir die folgende Zeile zu sein: 
Relativepath := not ((SL0J<>#0) and ((SL1J = '\') or (S[2] =": 


Des weiteren ergibt sich bei der Handhabung des tFileDialog die 
Schwierigkeit, daß das an das tFileIlnputLine angekoppelte History- 
Objekt zwar die Datei- aber nicht die Pfadnamen entgegennimmt. 
Dies kann für den Anwender eines Programms äußerst lästig sein. 


Eine genauere Überprüfung dieses Fehlverhaltens legt den Schluß 
nahe, daß das Problem durch eine dem ’Paradigma der objektorien- 
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tierten Programmierung’ zuwiderlaufende Programmierung entsteht. 
Das Paradigma besagt, daß der Zugriff auf die Daten eines Objekts 
nur über hierfür vorgesehene Methoden dieses Objekts erfolgen 
sollte (Kapselung). Dementgegen liest man in der UNIT DIALOGS 
(in der Methode tHistory.HandleEvent): 


1) RecordHistory(Link*.Data*); (2 mal ) 
2) Link*.Data* := Rslt; 


Und eigentlich müßte es (dem erwähnten Paradigma brav folgend) 
heißen: 


1) Link*.GetData(Rsit); 
RecordHistory(Rs1t); 
2) Link*.SetData(Rslt): 


Natürlich sind diese ’Fehler’ allein noch nicht für die Disfunktionali- 
tät verantwortlich zu machen, aber wenn man noch in der UNIT 
STDDLG folgende (virtuelle) Methode einfügt bzw. überschreibt, so 
sollte das Zusammenspiel der Dialogelemente in der gewünschten 
Weise vonstatten gehen: 


procedure tFileInputline.GetData(var Rec): 
begin 

Owner“ .getdata(Rec); 

end: 


Welches Zahlenformat sollte ein Graphikpaket benutzen ? 


Die TGV kann in der hier vorgestellten Form nicht aller Weisheit 
letzter Schluß sein. Sie läuft zwar wie gewünscht im Graphikmodus 
und läßt sich offensichtlich auch zur Darstellung von Graphiken gut 
verwenden - aber eben nicht mehr. D.h., ihr fehlen bis jetzt prak- 
tisch alle Fähigkeiten zur Erstellung von Graphiken. Nun ist dies 
zwar nicht ein Buch über PC-Graphik (derer es ja auch schon einige 
gib), und der Umfang erlaubt es auch nicht, hier detailliert auf die- 
ses Thema einzugehen, es sollen aber ein paar grundsätzliche 
Überlegungen dazu angestellt werden. 


Alle (mir bekannten) Graphikpakete haben eines gemeinsam: Sie 
benötigen ein Koordinatensystem. Das Koordinatensystem ist sozu- 
sagen der Stoff, aus dem die Graphik besteht. Die möglichen gra- 
phischen Operationen ergeben die Form des Systems. Wie sollte 
nun aber dieser Stoff beschaffen sein ? Oft wird diese Frage - mei- 
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nes Erachtens zu arglos - durch die Wahl von Fließkommazahlen 
beantwortet. Sicher haben diese einige unübersehbare Vorteile. Sie 
können sehr flexibel eingesetzt werden, und es stehen ohne weite- 
res Funktionen wie die Wurzelfunktion, Sinus und Cosinus zur Ver- 
fügung, die in graphischen (d.h. geometrischen) Berechnungen oft 
benötigt werden. Aber abgesehen von diesen Vorteilen ist es den- 
noch Tatsache, daß eine nicht unwesentliche Komponente der 
Qualität eines Graphikpaketes in der Geschwindigkeit zu sehen ist, 
mit der dieses System bestimmte Operationen (wie etwa Kreise oder 
Linien zu zeichen) ausführen kann. Ein kurzer Blick in das TASM- 
Referenzhandbuch (oder ein ähnliches Werk) liefert nun die fol- 
gende Bearbeitungsdauer arithmetischer Operationen in Taktzyklen: 


Befehl 8086/87 80286/2837 80386/87 1486 


ADD 4..17 2..7 2..7 1..3 
SUB 4..17 2..7 2..7 1..3 
IMUL 80..160 13..24 9..25 13..26 
IDIV 165..190  17..28 18..27 19..28 
FADD 70..125 70..125 23..37 8..20 
FSUB 70..125 70..125 24..36 5..17 
FMUL 90..168 90..168 27..57 11..16 
FDIV 193..230 193..230 88..94 73 


Aus dieser Aufstellung wird sicher sofort deutlich, warum die Ver- 
wendung von Fließkommazahlen in graphischen Routinen umgan- 
gen werden sollte, wo es nur immer geht: Die Operationen brau- 
chen bis zu zehnmal mehr Zeit als die entsprechenden Integer- 
Operationen. Nun hat man bei 16-Bit-Integer-Zahlen (oder 32 Bit ab 
dem 80386) vielleicht das Gefühl, daß diese ’nicht genau genug’ 
seien, um den Ansprüchen zu genügen (ich unterstelle dies, weil 
mir dieses Gefühl nicht unbekannt ist). Dazu folgende Überlegun- 
gen: 

Nimmt man z.B. an, daß das Ausgabe- bzw. Druckmedium eines 
Graphikpaketes 1200 DPI maximale Auflösung besitzt - was auch 
gute Laserdrucker kaum schaffen -, so lassen sich mit dem Zahlen- 
umfang einer Integerzahl (- 32738..+32767) bis zu 54.6 Inch große 
Druckpapiere auf den Punkt genau adressieren (54.6 Inch sind 
1,387 Meter und entsprechen etwas mehr als der Länge eines DIN- 
A-O-Papiers). Bei einem 24-Nadeldrucker mit 180 DPI ließe sich je- 
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der Punkt auf einer Fläche von 9,2 x 9,2 m = 85,5 m2 adressieren. 
Oder anders ausgedrückt: Jeder Pixel auf einem Bildschirm mit ei- 
ner Auflösung von 1280 x 1024 Punkten ließe sich in mindestens 25 
x 25 = 625 Teilpunkte zerlegen. D.h., es ließen sich zur Auf- oder 
Abrundung auf einen vollen Bildpunkt mindestens 4 Bit des Inte- 
gers abzweigen ! 


Wenn man sich diese kleinen Rechnungen einmal auf der Zunge 
zergehen läßt, so wird man schnell zu dem Ergebnis kommen, daß 
selbst das 16-Bit-Integerformat keineswegs "ungenau? ist. 


Das zweite mögliche Argument gegen Integer-Zahlen könnte man 
in der Notwendigkeit der Anwendung oben erwähnter Funktionen 
sehen. Die Wurzelfunktion läßt sich ebenso in die Ganzzahlarith- 
metik einführen, wie ich in Kapitel eins bereits zeigte - und die 
Winkelfunktionen Sinus und Cosinus lassen sich ohne weiteres 
durch Tabellen realisieren. Legt man als Winkelgenauigkeit ein Grad 
zu Grunde, so reichen 90 Integerzahlen als Tabelle aus. Natürlich 
kann man in dieser Tabelle nicht den Sinus eines Winkels direkt an- 
geben, da dieser ja zwischen null und eins liegt, aber z.B. den Si- 
nus, multipliziert mit einer großen Normierungszahl. Auch hier läßt 
sich der Einwand der Ungenauigkeit entkräften. Angenommen, man 
benötigt den Sinus zur Darstellung von Kreisen (oder Ellipsen), so 
resultiert aus der Anwendung einer solchen Sinus-Tabelle natürlich 
die Darstellung des Kreises als 360-seitiges, regelmäßiges Vieleck. 
(Der Fehler durch das typische ’Abschneiden’ von Integerzahlen bei 
der Division läßt sich durch eine geeignete Ganzzahl-Rundung auf- 
fangen - schließlich muß auch jede Fließkommazahl einmal gerun- 
det werden, wenn sie in Rastergraphik einen Bildpunkt bezeichnen 
soll.) Damit sich die Darstellung eines solchen Vielecks von der 
Darstellung eines 'wirklichen’ Kreises in einer Rastergraphik auch 
nur um einen Pixel unterscheidet, muß die Höhe h eines Kreisseg- 
ments über der Mitte einer Seite des Vielecks größer oder gleich 0.5 
sein, d.h. es muß folgendes gelten: 


cos(Pi/360) <= (R-h) / R. 
R>=h/ (1 - cos(Pi/360)) 


Hieraus folgt, daß der Radius - bei h = 1/2 größer 13131 (Pixel) sein 
muß. Unterhalb dieses Wert ist die Darstellung so exakt wie mit 
Fließkommazabhlen. Und sollte dies dennoch ein Problem darstel- 
len, weil so große Kreise gezeichnet werden müssen, so ist es mit 
Sicherheit kein Problem, die Feinheit der Gradeinteilung in der Ta- 
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belle entsprechend zu steigern. Der Geschwindigkeitsvorteil, der 
sich aus dieser Technik gegenüber der Anwendung von Fließkom- 
maarithmetik ergibt, ist in keinem Fall zu verachten. 

Ein weiterer Vorzug der Integer-Arithmetik ist natürlich ihr geringe- 
rer Speicherbedarf gegenüber Fließkommazahlen. (Dieser Unter- 
schied besteht allerdings zwischen Longints und Single-Precision- 
Zahlen nicht mehr.) 


Natürlich sei es jedem unbenommen, sich dennoch bei der Pro- 
grammierung graphischer Algorithmen für ein Gleitkommaformat zu 
entscheiden. Unbestritten sei auch, daß es sicher Aufgabenstellun- 
gen gibt, bei denen kein noch so schönes Ganzzahlformat ausreicht 
- aber für die ’schlichten’ graphischen Operationen - wie sie z.B. 
auch Grundlage der UNIT GRAPH sind - ist ein solcher ’Aufwand’ 
sicher fehl am Platz. 


Ein Fließkommaemulator für Extendedzahlen 


Borland Pascal 7.0 verfügt über einen eigenen eingebauten Fließ- 
kommaemulator, der automatisch benutzt wird, wenn ein 80x87er- 
Prozessor nicht installiert ist, vorausgesetzt, die entsprechende 
Compileroption wurde eingeschaltet. Wozu also dieses Kapitel ? 


Erstens ist die Programmierung eines Fließkommaemulators interes- 
sant und auch in Bezug auf die Assembler-Programmierung sehr in- 
formativ, zweitens ist die hier erläuterte 32-Bit-Version für 80386er- 
Prozessoren fast doppelt so schnell wie die von Turbo-Pascal im- 
plementierte Version, und drittens gibt es durchaus mathematische 
Probleme, die selbst bei Anwendung des Extended-Formats nur 
sehr ungenaue Ergebnisse liefern, so daß es von Interesse sein 
kann, bestimmte Rechnungen mit einem erweiterten Zahlenformat 
durchzuführen, um eine höhere Genauigkeit zu erzielen. Hierzu 
wird die 16-Bit-Version des Emulators (für 8086..80286er Prozesso- 
ren) einfach auf die breiten Register des 80386 umgeschrieben, wo- 
durch sofort ein verdoppeltes Extendedformat entsteht. Der hier 
vorgestellte Emulator ist sozusagen eine Demo-Version. Er produ- 
ziert keinen RunTimeError bei Division durch Null oder bei einem 
Overflow. Auch die Parameterübergabe kann je nach Aufrufkon- 
vention durchaus verändert (bzw. verbessert) werden; dennoch 
aber ist es ein vollwertiger Emulator für die Grundrechenarten, das 
Ziehen von Quadratwurzeln und die Berechnung von Logarithmen. 
Der Emulator arbeitet nicht direkt als Ersatz für den 80x87 wie der 
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BP-Emulator, d.h. er emuliert nicht die FPU-Befehle und -Register, 
sondern er besteht aus Assembler-Routinen, die vom Programm 
aufgerufen werden können wie andere Funktionen auch. Der Emu- 
lator für das Extended-Format verwendet die Tatsache, daß die Auf- 
rufparameter auf dem Stack übergeben werden und Turbo Pascal 
für das Funktionsergebnis lokalen Speicherplatz an der Adresse 
SS:[BP-10] reserviert. Die Assemblerroutinen greifen entsprechend 
auf den Speicher zu. 


Das Datenformat Extended 


Das Extended-Format besteht aus zehn Byte, wobei die ersten acht 
Byte für die Mantisse reserviert sind und die letzten 2 Byte für den 
Exponenten und das Vorzeichen. Im Gegensatz zu den anderen 
Fließkommaformaten (Real,Single,Double) muß die eins vor dem 
Komma gesetzt sein, so daß genaugenommen ein Bit verschenkt 
wird: 


Bit 79 78..64 63 6..0 
s eeeeee i mmmmm 


s: Vorzeichenbit 

e: Exponent + 16383 (= BIAS), ohne Vorzeichen. 
i: Eins vor dem Komma 

m: 63 Bit Nachkommastellen 

Eine Extended-Zahl läßt sich darstellen als 


(-15 # 20816383) x (ji + m62 * 21 mel * 272 +... mo * 269). 


Diese Darstellung verdeutlicht aber noch nicht, worum es tatsäch- 
lich geht. Da die 80 Bit nicht auf einmal in ein 16- bzw. 32-Bit-Regi- 
ster ladbar sind, schreibt man besser: 


(-1y(w5 shr 159% z(w5 and 7FFFh - 3FFFh) x (1 wa ® 215 4... w1 * 
263), 

wobei wn das n-te Wort darstellt. Im weiteren Verlauf des Kapitels 
werde ich folgende (vektorielle) Schreibweise für die Mantisse ver- 
wenden: (w4,w3,w2,w1). Die Mantisse stellt also sowohl ein Po- 
lynom vierten Grades dar (bei 16-Bit-Registern), als auch ein vorzei- 
chenloses QWort. Wird die Mantisse als aus zwei Doppelworten 
(entsprechend den 80386/i486-Registern) bestehend betrachtet, so 
ist die Darstellung entsprechend kürzer: (d_2,d_1). 
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Bei Additionen und Subtraktionen muß stets der Übertrag im Car- 
ıyflag beachtet werden, bei der Multiplikation, daß das Produkt 
zweier 16-Bit Zahlen i.a. eine 32-Bit-Zahl ergibt. Bei der Division 
kommt die Schwierigkeit hinzu, daß nicht jede 32-Bit-Zahl als Pro- 
dukt zweier 16-Bit-Zahlen darstellbar ist, d.h., die größte 32-Bit- 
Zahl, die noch als Produkt zweier 16-Bit-Zahlen darstellbar ist, ist 
FFFFh * FFFFh = FFFE0001, so wie die größte zweistellige Dezimal- 
zahl, die sich als Produkt einstelliger Dezimalzahlen darstellen läßt, 
81 =9 *9 ist (und eben nicht 99). Versucht man, eine große 32-Bit- 
Zahl mit dem Asm-Befehl DIV durch eine zu kleine 16-Bitzahl zu 
teilen, so wird ein Runtimeerror (Division by Zero) erzeugt, da der 
ASM-Befehl DIV XX den Wert von DX:AX durch XX teilt, das Er- 
gebnis nach AX schreibt und den Rest nach DX; "Division by zero" 
ist einfach die Standardfehlermeldung, wenn Ergebnis nicht mehr in 
AX darstellbar ist. 


Addition/Subtraktion von Extendedzahlen 


Die Addition bzw. Substraktion von Fließkommazahlen besteht aus 
mindestens drei Schritten. Im ersten Schritt werden die Vorzeichen 
getestet und entschieden, ob die Mantissen effektiv zu addieren 
oder zu subtrahieren sind. Im zweiten Schritt werden die Exponen- 
ten angeglichen, d.h. eine Mantisse wird solange nach rechts ge- 
schoben, bis die Exponenten übereinstimmen oder die angepaßte 
Mantisse leer ist, so daß quasi ’null’ addiert oder subtrahiert wird. 
Im dritten Schritt werden die Mantissen addiert bzw. subtrahiert und 
bei einem Übertrag die Darstellung wieder normalisiert. 


Ein Beispiel hierfür: 
1.01011101100 * 28 + 1.11001010000 * 24 - 


1.01011101100 * 28 + 
0.00011100101 * 28 

_ 111 (Überträge) 
1.01111010001 * 2 


Die additiven Operationen stellen somit keine wirkliche Schwierig- 
keit dar. 


Multiplikation 


Bei der Multiplikation ist das Vorgehen vollständig anders. Folgende 
Schritte sind nötig: 
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1) Setze das Ergebnis auf Null 


2) Addiere Exponenten der Multiplikanten (Hierbei ist zu beachten, 
daß beide Exponenten den ’Bias’ enthalten ). 


3) Verknüpfe die Vorzeichen (XOR) 

4) Normalisieren der Mantissen (einen nach links schieben) 

5) Multiplizieren der Mantissen: 
(a4,a3,a2,a1) * (b4,b3,b2,b1) = (c4,c3,c2,c1) = 
(hi(a4*b4),lo(a4*bY+hi(a4*b3)+hi(b4*a3),...) 
Man multipliziert die Mantissen also ähnlich wie Polynome, wo- 
bei das jeweils vierte Wort der Mantisse implizit einen ’2er-Ex- 
ponenten’ von -16 hat, das dritte Wort von -32 usw. Daraus er- 
gibt sich bei der Multiplikation von a4 und b4 ein Exponent von 
-32, so daß c4 allein aus dem höherwertigen Wort des Produkts 
besteht. Das Produkt aus a2 und b2 hat einen Exponenten von - 
96, so daß dieses Produkt nur noch für die Rundung eine Rolle 
spielt. 
Der Algorithmus ist natürlich bei 32-Bit-Registern ein ganzes 
Stück kürzer, da hier nur (a_2,a_1) * (b_2,b_1) berechnet wer- 
den muß. 

6) Normalisieren der Mantisse von C. 


Da das Extended-Format eine Eins im höchsten signifikanten Bit 
vorschreibt, die Berechnung ohne dieses Bit aber erheblich er- 
leichtert wird, werden beide Mantissen vor der Rechnung um ei- 
ne Binärstelle nach links geschoben. Nach der Berechnung des 
Produkts muß die Mantisse wieder soweit nach links geschoben 
werden, bis das MSB (Most Significant Bit) auf eins steht. Für 
jede Stelle, die die Mantisse nach links geschoben wird, ist der 
Exponent um eins zu dekrementieren. 


Division 

Die Division wird gleich zweimal implementiert - als FDIV und 
FODIV. Die Routine FDIV ist an die bitweise Integerdivision ange- 
lehnt (vergl. Kapitel 1), während sich FODIV das Darstellungsformat 
der Extended-Zahlen zunutze macht, das es (im Gegensatz zur 
Ganzzahldivision über mehrere Worte) ermöglicht, den Befehl DIV 
einzusetzen: 


Ist 
(a4,a 3,a_2,a_ 1) * (b_4,b_ 3,b_2,b_1) = (c_4,c_3,c_2,cl), 
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so ist (wie schon weiter oben erwähnt) 


c4=hil(a4*bAM). 
c_3 = lo(a_4 * b_4) + hi(a_4 * b_3)+hi(a_3 * b_4) 
u.s.W. 


Daraus folgt, daß man mit etwas Geschick den Quotienten C/A mit 
Divisionsbefehlen und sukzessiver Subtraktion berechnen können 
muß: 


b4=(c4,.c 3) diva4 

b3 = (c_3 - lo(a_4 * b_4) - hi(a_3 * b_4)) div a_4 

etc. 
Das eigentliche Problem besteht in den Überträgen zwischen den 
verschiedenen 16-Bit-Worten, d.h. daß b_4 - derart berechnet - stets 
um einen Übertrag daneben liegen kann. Da die Sache im letzten 
Detail einigermaßen komplex ist und hier nur die leitende Idee er- 
läutert werden soll, so empfehle ich bei Interesse die Lektüre des 
Quelltextes der Divisionsroutine. 


Quadratwurzeln 


Die Berechnung der Quadratwurzel einer Integerzahl wurde in Ka- 
pitel eins dargestellt. Wie auch bei der Division geht der Ansatz 
über die sukzessive Subtraktion: 


Wenn 


A? = (a 4,a 3,a 2,a_1)2 = (b_4.b_3,b_2,b_1) = B, 


so gilt: 
BA = HI(A_AA_4) 
B 3 =Lo(A4* AA) +2 * HI(AA * A) 
U.S.W. 


Berechnet man also die (Integer-) Quadratwurzel von B_4, so hat 
man (bis auf einen Übertrag) A_4. Dann geht es folgendermaßen 
weiter: 


A3 = (B_3 - Lo(A_ 4A 4)) div (2*A_4) 
etc. 


Für A_1 ist die Formel schon etwas lang, daher verweise ich auch 
hier auf den Quelltext von FSQRT / FSQRT386. 
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Logarithmieren 


Es mag überraschen, daß der Logarithmus hier als einzige 
'transzendente’ Funktion neben den vergleichsweise einfachen al- 
gebraischen Rechenarten mit einem ’exakten’ Algorithmus angeführt 
wird. 


Dies hat jedoch einen ganz einfachen Grund: Der Logarithmus zur 
Basis zwei läßt sich als einzige transzendente Funktion ohne Nähe- 
rung über eine Potenzreihe direkt aus der Binärdarstellung einer 
Fließkommazahl berechnen. Ich will hier nur versuchen, die Idee 
zu erläutern: 


Wenn y = Ina(@&) der Logarithmus zur Basis zwei von X ist, so gilt 
natürlich umgekehrt x = 2Y. Eine Fließkommazahl wird jedoch bi- 
när schon folgendermaßen dargestellt: x = m * 2€ . Zerlegt man nun 
yiny=t+f=trunc(y) + frac(y), so gilt demnach: 


m* 28=2 uf.» tl »of-1l_ ot « wz)t-F. 


Vergleicht man die rechte Seite mit der linken, so zeigt sich, daß der 
ganzzahlige Anteil von y praktisch dem Exponenten von x ent- 
spricht. Von der Mantisse von x wissen wir, daß sie (ents Send 
normiert) zwischen 0.5 und 1 liegen muß. Dies tut alt auch, 
da vorausgesetzt werden kann, daß 1-f zwischen O und 1 liegt. Wir 
müssen also nur 1-f (nennen wir es mal g) berechnen, und das 
geht folgendermaßen: 


(12) 9 
g *V2+p*lV/4+g* VB... 


m 
g 


(mit g; = Null oder Eins.) 


Wenn gı gleich Null ist, so ist g < 0.5; ist g] gleich Eins, so ist 1>g 
>= 0.5. 

Wenn wir nun m quadrieren, so folgt: m? = (1/2)28 . Ist g kleiner 
als 0.5, so ist 2*g kleiner als 1 und m? größer 0.5. Ist also umge- 
kehrt m? größer 0.5, so ist 81 > 0. Ist gj hingegen gleich Eins, so 
werden beide Seiten einfach mit zwei multipliziert und das Ganze 
wird für g5 wiederholt. Da g im Extendedformat 63 Binärstellen hat, 
so muß man also ’nur’ m 63-mal quadrieren, testen und ggf. mit 
zwei multiplizieren. Anschließend wird durch Negation ausg=1-f 
der gebrochene Anteil von y berechnet, und man hat nach Addi- 
tion des ganzzahligen Anteils y = Inz(x) gelöst. Der Algorithmus 
scheint zwar sehr aufwendig zu sein, ein Geschwindigkeitsvergleich zeigte 
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jedoch (auf meinen 80386 SX mit CYRIX-387 Coprozessor), daß die 
Routine unter Verwendung der 32-Bit-Register des 80386 nur fünf 
mal langsamer als der Coprozessor ist. Nur bei Zahlen, die sehr 
nahe bei eins liegen, versagt der Algorithmus, was sich durch 
entsprechende Umrechnung umgehen läßt: 


Inz(a) = Inz(21/2*a) - 0.5. 


AA 


447 


Anhang 


Portadressen / Interrupts etc. 


Portadressen des PC 
Adresse INuzung 
|0040..005F | 


0040..005F _| Timer 


0060..006F | Tastatur 


» 


| 
voor Tamm — — — — | 
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0378..037F 
0380..038F 
03A0..03AF 
03B0..03BB 
03BC..03BF 
03C0..03CF 
03D0..03DF | Farb-Bildschirmadapter 

03F0..03F7 
03F8..03FF 


Die Belegung der Interrupt-Vektoren 


Division durch Null 


® 
® 


a ee N 
Hardwareinterrupts (IRQ 0..IROQ 7) 


Tracemode-Interrupt 
{6} 


er Ss Ja [u ba jo [n [Hr 2 
A 


0Bh 
OCh 
0Dh 
OEh 
OFh 
10h 
11h 
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34h..3Eh | Borland-Floatingpoint-Emulator 


DPMI-Funktionsaufrufe (DPMI-Server) 
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Belegung 


son | Floppyserver 
41h/42h Festplattenparametertabelle (BIOS) 


ummer 
h 
h 
h 
h 
h 
h 
h 


An 


EMS-Manager 


O\ 


Dh | Vrmemp | 


Funktionen des DOS-Interrupt 21h 


EEE 
sch _|RTC Reim cc —— | 


N 
40 
43 
44 
67 
6C 
D 
0 
5 
6 


Nummer Funktion DOS-Version 
00h Terminate Program 1.0 
01h Read Keyboard and Echo 1.0 
02h Display Charakter 1.0 
03h Auxiliary Input 1.0 
04h Auxiliary Output 1.0 
05h Print Charakter 1.0 
06h Console In-/Output 1.0 
07h Console Output 1.0 
08h Read Keyboard 1.0 
09h Display String 1.0 
0Ah Buffered Keyboard Input 1.0 
0Bh Keypressed 1.0 
och Flush Buffer, Read Keyboard 1.0 
0Dh Disk Reset 1.0 


OEh Select Default Disk 1.0 


A 
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Nummer Funktion DOS-Version 
OFh Open File via FCB 1.0 
10h Close File via FCB 1.0 
11h Search For First FCB-Entry 1.0 
12h Search For Next FCB-Entry 1.0 
13h Delete File via FCB 1.0 
14h Read File via FCB 1.0 
15h Write to File via FCB 1.0 
16h Create File via FCB 1.0 
17h Rename File via FCB 1.0 
19h Get Default Disk 1.0 
1Ah Set Disk Transfer Address 1.0 
1Bh Get Default Drive Data 1.0 
1Ch Get Drive Data 1.0 
21h Random Read 1.0 
22h Random Write 1.0 
23h Get File Size 1.0 
24h Set Relativ Record of FCB 1.0 
25h Set Interrupt Vector 1.0 
27h Random Block Read 1.0 
28h Random Block Write 1.0 
29h Parse File Name 1.0 
2Ah Get Date 1.0 
2Bh Set Date 1.0 
2Ch Get Time 1.0 
2Dh Set Time 1.0 
2Eh Set/Get Verify Flag 1.0 
2Fh Get Disk Transfer Address 2.0 
30h Get DOS-Version 2.0 
31h Keep Resident 2.0 
32h Get Disk Parameter Block 2.0 
33h Ctrl-C-Check 2.0 
34h Get DOS Critical Interval Flag 2.0 
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Nummer Funktion 


35h 
36h 
37h 
38h 
39h 
3Ah 
3Bh 
3Ch 
3Dh 
3Eh 
3Fh 
40h 
41h 
42h 
43h 
44h 
4400h 
4401h 
4402h 
4403h 
4406h 
4407h 
4408h 
440Ah 
440Bh 
440Ch 
440Dh 
45h 
46h 
47h 
48h 
49h 


Get Interrupt Vector 

Get Free Disk Space 

Set Switch Character 

Get / Set Country Data 
Create Directory 

Remove Directory 

Change Current Directory 
Create File/Device via Handle 
Open File/Device via Handle 
Close File/Device via Handle 
Read from File/Device via Handle 
Write to a File/Device via Handle 
Delete File/Directory 

Move File Pointer 

Get/Set File Attributes 
IO-Ctrl-Funktionen 

Get Device Attributes 

Set Device Attributes 

Read Ctrl-Character 

Write Ctrl-Character 

Get IOCtrl-Input State 

Get IOCtrl-Output State 
IOCtrl is Changeable Device 
IOCtrl is Redirected Handle 
Set IOCtrl Retry 

Code Page Functions 
Generic IOCtrl-Request 
Duplicate File Handle 

Force Duplicate File Handle 
Get Current Directory 
Allocate Memory 

Free Allocated Memory 


Anhang 


DOS-Version 
2.0 
2.0 


3.0 
2.0 
2.0 
2.0 
2.0 
2.0 
2.0 
2.0 
2.0 
2.0 
2.0 
2.0 


2.0 
2.0 
2.0 
2.0 
2.0 
2.0 
3.0 
3.1 
3.0 
3.3 
3.2 
2.0 
2.0 
2.0 
2.0 
2.0 


A Portadressen / Interrupts etc. 453 


Nummer Funktion DOS-Version 
4Ah Set Memory Block Size 2.0 
4Bh Load Overlay/Execute Program 2.0 
4Ch Terminate Program 2.0 
4Dh Get Program-Exitcode 2.0 
4Eh Find First Directory Entry 2.0 
4Fh Find Next Directory Entry 2.0 
52h Get DOS Data Area 2.0 
54h Get Verify State 2.0 
56h Rename File 2.0 
57h Get / Set File Date and Time 2.0 
58h Get / Set Allocation Strategy 2.0 
59h Get Extended Error Information 3.0 
5Ah Create Temporary File 3.0 
5Bh Create New File via Handle 3.0 
5Ch Lock / Unlock File Access 3.0 
5SEh/5Fh Network Printer Functions 3.1 
62h Get PSP-Adress 3.0 
65h Get Extended Country Information 3.3 
66h Get / Set Global Code Page 3.3 
67h Set Handle Count 3.3 
68h Commit File 3.3 
69h Get / Set Disk Serial Number 4.0 
6Ch Extended Open/Create File via Handle 4.0 
A.A Abkürzungen 
Kürzel Bedeutung 
BCD Binary Coded Decimal 
BIOS Basic Input/Output System 
Bit Binary Digit 
BPB BIOS Parameter Block 
CON Console 


CGA Color Graphics Adapter 


454 Anhang 


Kürzel Bedeutung 


CPU Central Processing Unit 

CRC Cyclical Redundancy Check 

CRT Cathod Ray Tube 

CRTC CRT-Controller 

DAC Digital Analog Converter 

DCB DOS-Control-Block 

DLHB Divisor Latch High Byte (Serielle Schnittstelle) 
DLL Dynamic Link Library 

DLLB Divisor Latch Low Byte (Serielle Schnittstelle) 
DMA Direct Memory Access 

DOS Disk Operating System 

DPB Disk-Parameter-Block 

DPI Dot Per Inch (Punkte / Zoll) 

DPMI DOS Protected Mode Interface 

DTA Disk Transfer Area 

DTP Desktop Publishing 

DTR Data Terminal Ready (Serielle Schnittstelle) 
ECC Error Correction Code 

EGA Enhanced Graphics Adapter 

EMS Expanded Memory Specification 

EMM Expanded Memory Manager 

FAT File Allocation Table 

FCB File Control Block 

FPU Floating Point Unit 

GDT Global Descriptor Table 

HGC Hercules Graphics Card 

HMA High Memory Area 

IDT Interrupt Descriptor Table 

IER Interrupt Enable Register (Serielle Schnittstelle) 
IIR Interrupt Identification Register (Serielle Schnittstelle) 
LCR Line Control Register (Serielle Schnittstelle) 


LDT Local Descriptor Table 


B 
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Kürzel Bedeutung 


LSB 
LSR 
MCB 
MCGA 
MCR 
MDA 
MSB 
MSR 


VGA 


Least Significant Bit 

Line Status Register (Serielle Schnittstelle) 
Memory Control Block 

Multicolors Graphics Adapter 

Modem Control Register (Serielle Schnittstelle) 
Monochrom Display Adapter 

Most Significant Bit 

Modem Status Register (Serielle Schnittstelle) 
Non-Maskable Interrupt 

Protected Mode 

Printer 

Program Segment Prefix 

Random Access Memory 

Receiver Buffer Register (Serielle Schnittstelle) 
Read-Only Memory 

Real Time Clock 

Sub-Control-Block 

Turbo Graphics Vision (Kapitel 14) 
Transmitter Holding Register (Serielle Schnittstelle) 
Terminate but Stay Resident 

Upper Memory Area 

Video Graphics Array 


XMS Extended Memory Specification 


Dateien auf Diskette, Tabellen etc. 


Dateien auf der Beilagediskette 
Kapitel Datei 


1.2.3 


UNIT DWORDS 
UNIT QWORDS 
DWORDS.ASM 
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Kapitel Datei 


1.3 

1.3.4 
1.3.5 
2.2.3 


13.1.1 
13.2.4 


14 


UNIT CPU 
CPU.ASM 

UNIT CODES 
UNIT FPU 
FPU.ASM 
FPUDEMO.PAS 
UNIT TIMER 
IRQ_DEMO.PAS 
UARTDEMO.PAS 
UNIT KEYBOARD 
KBD_DEMO.PAS 
UNIT HERCULES 
UNIT VGA 

UNIT PALETTES 
PALDEMO.PAS 
UNIT DISC_REC 
UNIT DISC_OBJ 
DPBDEMO.PAS 
FCBDEMO1.PAS 
UNIT FCBS 
UNIT HANDLES 
UNIT SYSINFO 
TSRDEMO1.PAS 
TSRDEMO2.PAS 
UNIT _XMS_ 
UNIT _DPMI 
UNIT VMEM32 
UNIT HEAP 
AC_DEMO.PAS 
DEVICE.ASM 
MAKE_DEV.BAT 
TGVDEMO.PAS 


B 
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B.2 


Kapitel _ Datei 


14.1 


14.2.3 
14.4 


Tabellen 


UNIT TVGRAPH 
UNIT TVBITMAPS 
GRAPHICS.PAS 
FONT8X8.FNT 
FONT8X12.FNT 
FONT8X14.FNT 
FONT8X16.FNT 
TGVDEMO.BMP 
Emulator-Dateien: 
EXPANDED.PAS 


XFLOATS.PAS 
FLOAT86.ASM 
FLOAT386.ASM 
EXPANDED.ASM 


Nummer Tabelle 


11 
1.2 
2.1 
2.2 
2.3 
2.4 
2.5 
2.6 
2.7 
2.8 
3.1 
3.2 
3.3 
3.4 
4.1 


Adressierungsarten des 80x86 
Registeradressierung 

Die Arithmetik-Befehle der FPU 

Die Arithmetik-Operanden der FPU 
Beispiele für FPU-Arithmetik-Befehle 
Die FPU-Lade- und Transportbefehle 
Weitere FPU-Lade- und Transportbefehle 
Die transzendenten FPU-Befehle 

Die FPU-Steuerbefehle 

Aufbau eines FPU-Umgebungsblocks 
DMA-Seiten- und Offsetregister 

Die PC-Hardware-Interrupts 

Die Belegung der CMOS-Register 
Die BIOS-Festplattentypen 
Druckercodes 
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Nummer Tabelle 


4.2 
4.3 
4.4 
4.5 
2.1 
7.2 
7.3 


7.4 


81 

8.2 

91 

9.2 

93 

9.4 

9.5 

9.6 - 9.8 
10.1 
10.2 


10.3 
11.1 
11.2 
11.3 
11.4 
11.5 
11.6 
11.7 
12.1 
13.1 
13.2 


ESC-Druckerbefehle 

Baudraten und Frequenzteiler 

Signalleitungen der seriellen Datenübertragung 

Die Register des 8250 

Die Videomodi der klassischen Graphikkarten 
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